2010,0102=2,0100102Е+3=20,100102Е+2=0,20100102Е+4=20100102Е-4=201001,02Е-2
1024
x=0
x=x+1
x=x+1
x=x*2 (9раз)
<span>
</span>500<span>x=0
x=x+1
x=x+1
x=x+1
x=x*2
x=x+1
x=x*2
x=x+1
x=x*2
x=x+1
x=x*2
x=x*2
x=x+1
x=x*2
x=x*2</span>
Во вложении - вариант решения первой системы уравнений...
Procedure p(k:integer);
var i:integer;
begin
for i:=1 to 20-4*k do write(k);
writeln
if k<4 then
begin
p(k+1);
for i:=1 to 20-4*k do write(k);
writeln;
end;
end;
begin
p(1);
end.
Результат:
1111111111111111
222222222222
33333333
4444
33333333
222222222222
1111111111111111