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

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.

26.01.2016, 16:16	#1 (permalink)
rengeer Новичок Регистрация: 26.01.2016 Сообщений: 1 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Необходимо написать программу вывода всех квадратов натуральных чисел необходимо написать программу вывода всех квадратов натуральных чисел не превосходящих заданного числа n. надо написать ее с помощью цикла с постусловием( repeat until) Помогите всю голову сломал!!

26.01.2016, 16:39	#2 (permalink)
MagentaTiger Специалист Регистрация: 27.04.2015 Адрес: Москва Сообщений: 1,423 Записей в дневнике: 4 Сказал(а) спасибо: 52 Поблагодарили 53 раз(а) в 16 сообщениях Репутация: 18120	Как ? Как можно "сломать голову", над заданием такой ЧУДОВИЩНОЙ сложности ? Код: 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.

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

26.01.2016, 16:16
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Проблема возможно уже решена ранее, посмотрите тут Необходимо написать программу Найти из всех четырехзначных чисел...

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070