Var a,b,c,s:integer; Begins:=0; writeln('Введите 3 числа'); readln(a,b,c); If a mod 2=0 then s:=s 1; If b mod 2=0 then s:=s 1; If c mod 2=0 then s:=s 1; writeln('Количество четных чисел=',s); end.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
