Помогите решить задачу по Pascal ABC, цикл while. C клавиатуры вводится число, ввод заканчивается числом 500. Сколько чисел делится на 3?

Question

Информатика

Нана

24 марта, 06:38

Помогите решить задачу по Pascal ABC, цикл while. C клавиатуры вводится число, ввод заканчивается числом 500. Сколько чисел делится на 3?

+2

Ответы (1)

Знаете ответ?

Денисья · Answer 1

Var col, ch:integer;

begin

writeln ('введите числа, закончив ввод числом 500 ') ;

while (ch500) do begin

readln (ch) ;

if ch mod 3 = 0 then col:=col+1;

end;

writeln ('количество чисел кратных трём = ', col) ;

end.