Написал программу на Паскале. с расширением pas.
var a:array[2..14] of integer; i:byte;begina[2]:=100;for i := 3 to 14 doa[i]:=a[i-1]*2;writeln(a[14] div 1000,',',a[14] mod 1000,'кг');readln;end.
Написал программу на Паскале. с расширением pas.
var
a:array[2..14] of integer;
i:byte;
begin
a[2]:=100;
for i := 3 to 14 do
a[i]:=a[i-1]*2;
writeln(a[14] div 1000,',',a[14] mod 1000,'кг');
readln;
end.