Question

Помогите написать программу на pascal. Напишите программу, выводящую ряд квадратов чисел от 1 до 10 двумя способами for и while

Answer 1

Ответ:

С помощью цикла for:

var

i:integer;

begin

for i:=1 to 10 do

writeln(i*i);

end.

C помощью цикла while:

var

i:integer;

begin

i:=1;

while i<=10 do

begin

writeln(i*i);

i+=1;

end;

end.

Объяснение:

i+=1 - запись равнозначна записи i:=i+1