Нахождение кратных чисел из одного большого числа

@Step51 · Регистрация: 20.03.2014

Author24 — интернет-сервис помощи студентам

Дамы и господа ...
Информатика , 9-ый класс ...
Задали создать программу в паскале ... она звучит так :
"определите и выведите на экран количество чисел в указанном интервале (например от 10 до 1000) , делящихся без остатка на 7, 9 и 11 одновременно."
я мучаюсь с ней уже 2-ой час ....
Если не сдам завтра . получу 3 за четверть ...
Заранее спасибо

@bormant · 20.03.2014, 23:33

Pascal

var n1, n2, i, c: integer;
begin
  Write('Введите интервал: '); ReadLn(n1,n2);
  c:=0;
  for i:=n1 to n2 do
    if (i mod 7=0) and (i mod 9=0) and (i mod 11=0) then inc(c);
  WriteLn('От ',n1,' до ',n2,' на 7, 9, 11 одновременно делятся ',c,' чисел.');
end.

@Step51 · 20.03.2014, 23:45 **[ТС]**

Пояснение : интервал не фиксированный ... т.е. надо как то сделать так что бы самому задавать интервал ...

Добавлено через 9 минут
От души благодарю !)

@Step51 0 / 0 / 1 Регистрация: 20.03.2014 Сообщений: 6
		1
	Нахождение кратных чисел из одного большого числа 20.03.2014, 23:29. Показов 1367. Ответов 2 Метки нет (Все метки) Дамы и господа ... Информатика , 9-ый класс ... Задали создать программу в паскале ... она звучит так : "определите и выведите на экран количество чисел в указанном интервале (например от 10 до 1000) , делящихся без остатка на 7, 9 и 11 одновременно." я мучаюсь с ней уже 2-ой час .... Если не сдам завтра . получу 3 за четверть ... Заранее спасибо 0

@Step51 0 / 0 / 1 Регистрация: 20.03.2014 Сообщений: 6
	20.03.2014, 23:45 [ТС]	3
	Пояснение : интервал не фиксированный ... т.е. надо как то сделать так что бы самому задавать интервал ... Добавлено через 9 минут От души благодарю !) 0

Нахождение кратных чисел из одного большого числа

Решение