Var a, b, c, i:integer;
s:string;
begin
read (s);
for i:=1 to length(s) do if s[i]=' ' then delete(s,i,1);
write (s);
<span>end.
</span>var a, b, c, i:integer;
s, k:string;
begin
read (s);
k:='kk';
for i:=1 to length(s) do if s[i]=' ' then insert(k,s,i+1);
write (s);
<span>end.
</span>
var a, b, c, i:integer;
s:string;
begin
read (s);
for i:=1 to length(s) do if s[i]=',' then a:=i;
write (a);
end.
Благодарность не помешает.
72 Мбайт передается за 180секунд
Определим сколько Мбайт передается за 1с
72мбайт--180секунд
Х-1сек
180х=72мбайт
Х=0.4 Мбайт в секунду
Значит за 360секунд*0,4=144 мбайт