Спо информатике в паскале задано натуральное число n. найти количество натуральных чисел, не превосходящих n и не делящихся ни на одно из чисел 2,3,5
bondaryulia2000
3
11.05.2019 16:47
5
Другие вопросы по теме Информатика
петлю
14.07.2019 04:10
veronkagavrily
22.08.2019 12:20
Mashaskliiiz
22.08.2019 12:20
3586460
11.03.2021 12:16
Ксюшка1521
11.03.2021 12:15
daulbaevazanel123
09.06.2019 20:40
m5zapir
09.06.2019 20:40
nastya2719
09.06.2019 20:40
valeevinsaf
13.05.2020 15:57
Популярные вопросы
- 5. Распределите номера пунктов программы партии Алаш в соответствующий...
1 - Прочитайте повесть „Емшан и опередилите тему текста и идею произведения...
3 - Қай қалада суы емдік қасиетке бай....
3 - Die Frage, was man werden will, wird früher oder später jedem gestellt....
1 - напишите формулы кислот, в состав которых входят следующие кислотный остатки...
1 - 4. Закончите следующие предложения (письменно): 1) Das ist... 2) Was sind...?...
1 - Задание 3. Дано описание D[12]=45. Определить: ИМЯ массива -номер элемента...
2 - 2. Від кого звільнив Климка Зульфат? Выберите один правильный ответ (максимум...
1 - Задача 1 Водопоглощение бетона по массе и объему равны соответственно W...
3 - Казак тілден тоқсандык жиынтык багалау жауаптары 5-сынып...
3
Var n,i,s:integer;
Begin
write('Введите число -> ');
readln(n);
for i:=1 to n do
if (i mod 2 = 1) and (i mod 3 = 1) and (i mod 5 = 1) then s:=s+1;
if s=0 then writeln('Таких чисел не существует') else writeln(s,' чисел');
End.