26.01.2016, 16:16 | #1 (permalink) |
Новичок
Регистрация: 26.01.2016
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Необходимо написать программу вывода всех квадратов натуральных чисел
надо написать ее с помощью цикла с постусловием( repeat until) Помогите всю голову сломал!! |
26.01.2016, 16:16 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Проблема возможно уже решена ранее, посмотрите тут Необходимо написать программу Найти из всех четырехзначных чисел... |
26.01.2016, 16:39 | #2 (permalink) |
Специалист
Регистрация: 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. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Метки |
pascal abc |
|
|