• Составить программу которая вводит 5 чисел и подсчитывает количество четных и нечётных чисел
    ПОЖАЛУЙСТА !!!!!!!!!!!!срочно нужно

Ответы 2

  • vara,b,c: integer;beginreadln(a);c:=0;while a<>0 dobeginb:= a mod 10;a:= a div 10;if x mod 2=0 then c:=c+1;end;writeln(c)end.
    • Автор:

      paola
    • 5 лет назад
    • 0
  • var a,z,q:integer;beginreadln(a);q:=0;while a<>0 dobeginz:=a mod 10;a:=a div 10;if a mod 2=0 thenq:=q+1;end;writeln(q);end.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years