Вычислить количество натуральных чисел кратных трем и не превышающих N.
Вычислить количество натуральных чисел кратных трем и не превышающих N.
Гость
Ответ(ы) на вопрос:
Гостьvar
i, k, n: integer;
begin
write('Введите натуральное число N-> ');
readln(n);
k := 0;
i := 3;
while i <= n do
begin
k := k + 1;
i := i + 3;
end;
writeln('Результат: ', k)
end.
Тестовое решение:
Введите натуральное число N-> 1651
Результат: 550
Не нашли ответ?
Похожие вопросы