Question

Написать программу, которая выводит таблицу квадратов первых десяти целых положительных чисел (естественно, квадраты должны считаться в ниже представлен вид экрана во время работы программы, который вам нужно реализовать: таблица квадратов число квадрат 1 1 2 4 и т.д.

Answer 1

program kvadrat;
var i, n: integer;
begin
  writeln ('Таблица квадратов');
  writeln ('');
  writeln (' Число  Квадрат');
  writeln ('');
  i:= 1;
  n:= 10;
  for i:=1 to n do
  begin
    writeln ('  ',i,'   ', sqr(i));
  end;
  writeln ('');
end.

Answer 2

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.