Найти количество трёхзначных чисел делящихся на 7 и не делящихся на 3 - Паскаль, Turbo Pascal, PascalABC.NET

TsykunovDmitriy · 07.05.2014, 22:19

Найти количество трёхзначных чисел делящихся на 7 и не делящихся на 3

ZX Spectrum-128 · 07.05.2014, 22:25

Количество=0
Циклом от 100 до 999 делать
Если остаток от деления на 7=0 и остаток от деления на 3<>0 то
Увеличить количество

TsykunovDmitriy · 07.05.2014, 23:00

Можно код?

ZX Spectrum-128 · 07.05.2014, 23:05

Держите:

Код:

K:=0;
For i:=100 to 999 do
  If (i mod 7=0) and (i mod 3 <>0) then
     Inc(k);

07.05.2014, 22:19	#1
TsykunovDmitriy Новичок Джуниор Регистрация: 07.05.2014 Сообщений: 4	Найти количество трёхзначных чисел делящихся на 7 и не делящихся на 3 Найти количество трёхзначных чисел делящихся на 7 и не делящихся на 3

07.05.2014, 23:05	#4
ZX Spectrum-128 Участник клуба Регистрация: 05.11.2013 Сообщений: 1,601	Держите: Код: `K:=0; For i:=100 to 999 do If (i mod 7=0) and (i mod 3 <>0) then Inc(k);`

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Заданая последовательность состоит из 1 и 0,определить количество Mзначных чисел,делящихся на 21	Dima170792	Помощь студентам	3	25.06.2011 10:36
список всех четырехзначных нечетных чисел, делящихся без остатка на сумму своих цифр.	Kami-sama	Общие вопросы C/C++	2	12.11.2010 17:07
Количество чисел, делящихся на 11	CrazyRabbit	Помощь студентам	9	09.08.2009 01:56
Составить программу, определяющую количество чисел, делящихся без остатка на три	phoenixSV	Паскаль, Turbo Pascal, PascalABC.NET	2	05.12.2008 15:05
Вывод чисел, делящихся на каждую из своих цифр. Паскаль	ЯншинаВера	Помощь студентам	3	08.04.2008 11:50

07.05.2014, 22:25	#2
ZX Spectrum-128 Участник клуба Регистрация: 05.11.2013 Сообщений: 1,601	Количество=0 Циклом от 100 до 999 делать Если остаток от деления на 7=0 и остаток от деления на 3<>0 то Увеличить количество

07.05.2014, 23:00	#3
TsykunovDmitriy Новичок Джуниор Регистрация: 07.05.2014 Сообщений: 4	Можно код?