Question

Сформулировать таблицу квадратов чисел от 1 до 15. Использовать цикл "до" (с постусловием). То есть, написать простой алгоритм на паскале.

Answer 1

var i:integer;
begin
i:=1;
repeat
  writeln(i, i*i:4);
  i+=1;
until i=16;
end.