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

Question

Информатика

Алексана

26 февраля, 20:28

Помогите решить задачу по 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.