Question

Как с помощью цикла repeat until вывести на экран квадраты всех цифр(Паскаль)

Answer 1

Program asdasd;

uses crt;

const Stop = 16;

var i,n: integer;

begin

clrscr;

Write('N = '); ReadLn(N);

I:=N;

repeat

WriteLn(i*i);

i:=i+1;

until i > Stop;

end.

Ответ:

Объяснение: