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

Question

Информатика

Лаврентьич

13 апреля, 05:54

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

+1

Ответы (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