Помогите написать програму в Delphi 7 - вывести нечётные целые числа от 1 до 100, которые кратны 7 - Помощь студентам

crazy_bird · 31.03.2015, 22:26

Нужно вывести непарные целые числа от 1 до 100, которые кратны 7

min@y™ · 31.03.2015, 22:54

7, 21, 35, 49, 63, 77, 91

Sanscrit · 01.04.2015, 08:42

Код:

if N mod 2 < 0 and N mod 7 = 0 then
  вывод

N - проверяемое число.

31.03.2015, 22:26	#1
crazy_bird Новичок Джуниор Регистрация: 31.03.2015 Сообщений: 2	Помогите написать програму в Delphi 7 - вывести нечётные целые числа от 1 до 100, которые кратны 7 Нужно вывести непарные целые числа от 1 до 100, которые кратны 7

31.03.2015, 22:54	#2
min@y™ Цифровой кот Старожил Регистрация: 29.08.2014 Сообщений: 7,629	7, 21, 35, 49, 63, 77, 91 Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...

01.04.2015, 08:42	#3
Sanscrit Пользователь Регистрация: 23.03.2015 Сообщений: 24	Код: `if N mod 2 < 0 and N mod 7 = 0 then вывод` N - проверяемое число. Последний раз редактировалось Sanscrit; 01.04.2015 в 08:44.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Delphi. Цикл While. Вывести целые числа от А до В, А вывести 1 раз, число А+1 вывести 2 раза и т.д.	schibeki	Помощь студентам	4	07.02.2014 09:17
Вывести в порядке возрастания все целые числа которые находятся между "А" и "В" С++ (визуальный режим)	программирование	Помощь студентам	5	23.01.2014 02:14
Дано 100 целых чисел. Определить сумму тех из них, которые кратны 7.	Yana Bila	Помощь студентам	15	06.03.2013 22:58
Вывести все нечётные числа	SmileSTR	Паскаль, Turbo Pascal, PascalABC.NET	3	18.04.2012 11:45
Delphi. получить сумму тех чисел которые кратны 5 и имеют отрицательное значение	Crabobass	Помощь студентам	4	06.03.2011 22:21