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

0 голосов
118 просмотров

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


Информатика (15 баллов) | 118 просмотров
0

программа?

Дан 1 ответ
0 голосов
Правильный ответ

Var
  i, k, n: integer;

begin
  write('Введите натуральное число N-> ');
  readln(n);
  k := 0;
  i := 3;
  while i <= n do<br>  begin
    k := k + 1;
    i := i + 3;
  end;
  writeln('Результат: ', k)
end.

Тестовое решение:
Введите натуральное число N-> 1651
Результат: 550



(142k баллов)
0
Пишет что do<br> и между do и < ошибка