Вычислить количество натуральных чисел кратных трем и не превышающих 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

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.