Технический форум - Необходимо написать программу вывода всех квадратов натуральных чисел

Технический форум (http://www.tehnari.ru/)

- Delphi, Kylix and Pascal (http://www.tehnari.ru/f43/)

- - Необходимо написать программу вывода всех квадратов натуральных чисел (http://www.tehnari.ru/f43/t106553/)

rengeer

26.01.2016 16:16

Необходимо написать программу вывода всех квадратов натуральных чисел

необходимо написать программу вывода всех квадратов натуральных чисел не превосходящих заданного числа n.
надо написать ее с помощью цикла с постусловием( repeat until) Помогите всю голову сломал!!

MagentaTiger

26.01.2016 16:39

Как ? Как можно "сломать голову", над заданием такой ЧУДОВИЩНОЙ сложности ? :))

Код:

program a;

var i,n:Integer;

begin

write('Input natural number N: ');

readln(n);

i:=1;

repeat

writeln('i =',i:4,'  i^2=',i*i:4);

Inc(i);

until i>n;

readln;

end.

Часовой пояс GMT +4, время: 02:41.