Составьте программу, которая выводит автоматически квадраты целых чисел от 1 до 10 (оператор цикла с предусловием)

Question

Информатика

Алексеич

30 сентября, 12:27

Составьте программу, которая выводит автоматически квадраты целых чисел от 1 до 10 (оператор цикла с предусловием)

+4

Ответы (1)

Знаете ответ?

Юнонка · Answer 1

Var p, i,:integer;

begin

writeln ('Квадраты числ') ;

p : = 1; i:=1;

while i< 11 do

begin p * = i*i;

write (p:4) ;

i: = i + 1;

p:=1;

end; end.