Вычислить количество натуральных чисел кратных трем и не превышающих N.

Question

Информатика

Корнилыч

5 июля, 17:31

Вычислить количество натуральных чисел кратных трем и не превышающих N.

+3

Ответы (1)

Знаете ответ на вопрос?

Мавродий · Answer 1

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