Написать алгоритм читающий "N" и выдающий на экран квадраты чисел от 1 до "N"

Категория: Delphi/Pascal

2012-03-20 18:37:20

code: #pascal

uses crt;
var i,n:integer;
begin;
clrscr;
writeln('Введите число N');
readln(n);
FOR i := 1 TO n do
begin;
writeln(i * i);
end;
end.

Поделиться:

Sample Code