Информатика, опубликовано 2018-08-22 21:55:05 by Гость

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

Ответ оставил Гость

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.

Не нашли ответа?

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