Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 4. Количество вводимых чисел вводится с клавиатуры.
Var c,b,v,r:integer; begin readln(c); for b:=1 to c do begin readln(r); If r mod 4 =0 then v:=v 1; end; writeln(v); end.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
