Решите задачку через For, While, Until. Произведение возведения в квадрат от 0 до 50

Question

Информатика

Витюшка

6 июня, 14:41

Решите задачку через For, While, Until. Произведение возведения в квадрат от 0 до 50

+3

Ответы (1)

Знаете ответ на вопрос?

Коляша · Answer 1

Var

i, p:integer;

begin

for i:=1 to 50 do

begin

p:=i*i;

writeln (i,' в квадрате: ', p) ;

end;

end.

var

i, p:integer;

begin

i:=1;

repeat

p:=i*i;

writeln (i,' в квадрате: ', p) ;

i:=i+1;

until i>50;

end.

var

i, p:integer;

begin

i:=1;

while i<=50 do

begin

p:=i*i;

writeln (i,' в квадрате: ', p) ;

i:=i+1;

end;

end.