решение задачи и описание этапов решения.Задано натуральное число n. Найти количество натуральных чисел, не превышающих n и не делящихся ни на одно из чисел 2, 3, 5.
Ответы на вопрос
Ответил vladrus113
0
var i,n,kol:uint64; //Заказываем 3 переменные uint64
begin
read(n); //Читаем n
for i:=1 to n do begin // Запускаем цикл перебора всех чисел
if ((i mod 2)=0) and ((i mod 3)=0) and((i mod 5)=0) then inc(kol); // Проверяем Удовлетворяет ли число
end;
writeln(kol); //Пишем это количество
end.
begin
read(n); //Читаем n
for i:=1 to n do begin // Запускаем цикл перебора всех чисел
if ((i mod 2)=0) and ((i mod 3)=0) and((i mod 5)=0) then inc(kol); // Проверяем Удовлетворяет ли число
end;
writeln(kol); //Пишем это количество
end.
Ответил vladrus113
0
Есть и менее затратное по времени
Новые вопросы