Вывести квадраты чисел от 1 до N. В ПАСКАЛЕ написать программу (НЕ ИСПОЛЬЗУЯ for)

Question

Вывести квадраты чисел от 1 до N.
В ПАСКАЛЕ написать программу (НЕ ИСПОЛЬЗУЯ for)

Answer 1

1)
// PascalABC.NET 3.3

begin
  var n:=ReadInteger('n =');
  Range(1,n).Select(i->i*i).Println;
end.

Пример:
n = 5
1 4 9 16 25

2)
var n,i: integer;
begin
write('N = ');
readln(n);
i:=0;
while (i  begin
 i:=i+1;
 write(i*i,' ');
 end;
end.

3)
var n,i: integer;
begin 
write('N = ');
readln(n); 
i:=0; 
repeat
 i:=i+1;
 write(i*i,' '); 
until i=n;
end.

Пример:
N = 5
1 4 9 16 25

Comments

Можно ли написать данную программу с while, repeat?

---

Он получил баллы за свой ответ, никто его больше решать не заставляет, я просто поинтересовался у Вас, высококвалифицированных специалистов в области програмирования

---

Прошу прощения, школьную программу я не в силах изменить

---

Вы, наверное, рассуждаете о школах с уклоном на Айти и ИКТ, а вот в обычных школах основываются на обычную программу ФГОС