1) 65
2) AB
3) 1000111.111
4) 740.6
5) F8.4
Var
b,i:integer;
S:string;
Begin
Readln(S);
b:=0;
For i:=1 to length(s) do
if i<length(s) then begin
if (s[i]='ж') or (s[i]='ш') then if s[i+1]='ы' then begin s[i+1]:='и'; b:=b+1; end;
End;
Writeln(b);
Writeln(s);
<span>End.</span>
2) 640х480х2=614400 байт
614400 / 1024 / 1024 = 0,5859375 мбайт
<em>var <имя файловой переменной>: file of <тип данных>;</em>