Задано натуральное число n. Найти количество натуральных чисел, не превышающих n и не делящихся ни на одно из чисел 2, 3

@FAV46 · Регистрация: 26.01.2018

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

[Разминка-4] (Циклы)

@Young Vu · 07.03.2018, 10:59

Delphi

var i, n, count : integer;
begin
n := StrtToInt(edit1.text);
count := 0;
for i := 5 to N do
  if (i mod 2 = 0) and (i mod 3 = 0) then inc(count);
ShowMessage('Кол-во чисел = ' + inttostr(count));
end;

@FAV46 · 07.03.2018, 11:35 **[ТС]**

Спасибо!

@FAV46 0 / 0 / 0 Регистрация: 26.01.2018 Сообщений: 44
		1
	Задано натуральное число n. Найти количество натуральных чисел, не превышающих n и не делящихся ни на одно из чисел 2, 3 07.03.2018, 10:17. Показов 4455. Ответов 2 Метки нет (Все метки) [Разминка-4] (Циклы) 0

@FAV46 0 / 0 / 0 Регистрация: 26.01.2018 Сообщений: 44
	07.03.2018, 11:35 [ТС]	3
	Спасибо! 0

Задано натуральное число n. Найти количество натуральных чисел, не превышающих n и не делящихся ни на одно из чисел 2, 3

Решение