Найти количество натуральных чисел кратных 3 в отрезке от 1 до n.

Question

Информатика

Надюся

14 мая, 10:02

Найти количество натуральных чисел кратных 3 в отрезке от 1 до n.

+3

Ответы (1)

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

Дима · Answer 1

Var a, b, n:integer;

begin

writeln ('Введите n') ;

readln (n) ;

for a:=1 to n do

begin

if (a mod 3=0) then b:=b+1;

end;

writeln ('Количество чисел равняется ', b) ;

end.