1) Нужно знать размер файла, чтобы контролировать место на диске, анализировать примерное время отправки файла. Если файл большого размера, то долго будет отправляться. Оценивать, вместиться ли оно на флешку
2) Сохранять файлы можно в разных форматах, можно переименовать расширение, а можно изменить расширение в специальных программах. К примеру, в PNG есть транспарент, а в JPG его нет
3) Информация, записанная на компьютере не смешиваются точно также, как и наши воспоминания не перемешиваются. Но на компьютере информация записывается на жёстком диске, а диск разделён на сегменты. Туда и записываются файлы. Если удалить файл, то сегмент остаётся пустым, отчего нужно время от времени делать дефрагментацию диска
Const bd=['0'..'3']; var s,wa,wb,w:string; c:char; i,n:integer; bad_a:boolean; begin WriteLn('Вводите фразу, разделяя слова ровно одним пробелом'); Read(s); s:=s+' '; n:=Length(s); wa:=''; wb:=''; i:=1; bad_a:=false; w:=''; while i<=n do begin repeat c:=s[i]; if c<>' ' then begin bad_a:=bad_a or (c in bd); w:=w+c; Inc(i) end else begin if not bad_a then wa:=wa+' '+w; if s[i-1]='Я' then wb:=wb+' '+w; w:=''; bad_a:=false end until c=' '; Inc(i); end; wa:=Copy(wa,2,Length(wa)-1); wb:=Copy(wb,2,Length(wb)-1); Writeln(wa); Writeln(wb) end.
1) Нужно знать размер файла, чтобы контролировать место на диске, анализировать примерное время отправки файла. Если файл большого размера, то долго будет отправляться. Оценивать, вместиться ли оно на флешку
2) Сохранять файлы можно в разных форматах, можно переименовать расширение, а можно изменить расширение в специальных программах. К примеру, в PNG есть транспарент, а в JPG его нет
3) Информация, записанная на компьютере не смешиваются точно также, как и наши воспоминания не перемешиваются. Но на компьютере информация записывается на жёстком диске, а диск разделён на сегменты. Туда и записываются файлы. Если удалить файл, то сегмент остаётся пустым, отчего нужно время от времени делать дефрагментацию диска
bd=['0'..'3'];
var
s,wa,wb,w:string;
c:char;
i,n:integer;
bad_a:boolean;
begin
WriteLn('Вводите фразу, разделяя слова ровно одним пробелом');
Read(s);
s:=s+' ';
n:=Length(s); wa:=''; wb:='';
i:=1; bad_a:=false; w:='';
while i<=n do begin
repeat
c:=s[i];
if c<>' ' then begin
bad_a:=bad_a or (c in bd);
w:=w+c;
Inc(i)
end
else begin
if not bad_a then wa:=wa+' '+w;
if s[i-1]='Я' then wb:=wb+' '+w;
w:=''; bad_a:=false
end
until c=' ';
Inc(i);
end;
wa:=Copy(wa,2,Length(wa)-1);
wb:=Copy(wb,2,Length(wb)-1);
Writeln(wa);
Writeln(wb)
end.