Question

Написать программу, которая выводит таблицу квадратов первых десяти целых положительных чисел (естественно, квадраты должны считаться В ЦИКЛЕ!). Ниже представлен вид экрана во время работы программы, который вам нужно реализовать:

Таблица квадратов
-----------------------------
Число Квадрат
-----------------------------
1 1
2 4
и т.д.

Answer 1

program v1;

var a,n: real;

begin

a:= 1;

n:= 10;

while a <= n do begin

                             writeln (a, sqr(a));

                             a:= a+1;

                             end;

end.