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.
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
