var col,ch:integer; begin writeln('введите числа, закончив ввод числом 500 '); while (ch<>500) do begin readln(ch); if ch mod 3 =0 then col:=col 1; end; writeln('количество чисел кратных трём = ',col); end.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
