Question

(паскаль) Вывести на экран квадраты n первых положительных чисел. Значение n определяется пользователем с клавиатуры. Выполните решение задачи с помощью ЦИКЛА С ПОСТУСЛОВИЕМ(repeat/until). Заранее спасибо!!!

Answer 1

var n,b,c: integer;

begin

 b:=0;

 readln (n);

 repeat

   c:=b*b;

   writeln(c);

   b:=b+1;

   

 until b>n ;

end.