1)2
2)3
3)3
4)-
5)program hello_world;
var a,c,i:integer;
b:real;
begin read(a);
b:=1;
for i:=1 to 5 do begin
b:=b+0.2;
write(b*a,' ');
end;
<span>end.</span>
Двоичная (0,1)
Восьмиричная (0,1,2,3,4,5,6,7)
Десятичная (0,1,2,3,4,5,6,7,8,9)
Шестнадцатиричная (0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F)
<u><em>1. Типовой "школьный" вариант</em></u>
// PascalABC.NET 3.0, сборка 1076
var
s,a1,a2,a3:string;
p:integer;
begin
s:='22 33 444';
p:=Pos(' ',s);
a1:=Copy(s,1,p-1);
Delete(s,1,p);
p:=Pos(' ',s);
a2:=Copy(s,1,p-1);
Delete(s,1,p);
a3:=s;
Writeln(a1,#13#10,a2,#13#10,a3)
end.
<em><u>Результат выполнения программы:</u></em>
22
33
444
<em><u>2."Современный" вариант</u></em>
// PascalABC.NET 3.0, сборка 1076
begin
var s:='22 33 444';
var m:=s.ToWords;
var a1:=m[0];
var a2:=m[1];
var a3:=m[2];
Writeln(a1,#13#10,a2,#13#10,a3)
end.
<em><u>Результат выполнения программы:</u></em>
22
33
444
У меня такие рисунки занимают примерно 1,65-1,82 кб
Строка неизменяемый объект, ответ А).