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

Question

Информатика

Иродион

5 февраля, 07:42

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

+1

Ответы (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.