Составить программу для вывода ** экран квадратов чисел второго десятка ряда натуральных...

Question

Составить программу для вывода на экран квадратов чисел второго десятка ряда натуральных чисел. Через for. В (пискале)

Answer 1

1) через for

Program Quad;

var a,i: integer;

begin

for i:=11 to 20 do begin

a := i*i;

writeln (i, '^2 = ', a);

end;

end.

2) через while

Program Pow;

var a,i: integer;

begin

i := 11;

while i <= 20 do begin</p>

a := i*i;

writeln (i, '^2 = ', a);

i:= i+1;

end;

end.

3) через repeat

Program Pow;

var a,i: integer;

begin

i:= 11;

repeat

a := i*i;

writeln (i, '^2 = ', a);

i:=i+1;

until i>20;

end.

Comments

а в чём была ошибка?) не за что

---

надеюсь что ещё встретимся

---

спасибо за работу

---

спасибо я уже исправил

---

точно в for?