16 задание с операторами while или repeat

даниил854 даниил854    2   19.05.2020 13:32    0

Ответы
samal22 samal22  15.10.2020 00:27

var x,i:integer;

begin

 writeln('2 ^ 0= 1');

 x:=2;

 for i:=1 to 10 do

   begin

      writeln('2^', i:2, ' = ', x);

      x:=x*2;

   end;

end.

Лучше так

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика