• дано трехзначное число. проверить будет ли сумма его цифр четным числом.
    на Pascal abc

Ответы 1

  • program dsjugf;uses crt;var a,b,c,s: integer;beginreadln(a);s:=0;b:=a mod 10;a:=a div 10;c:=a mod 10;a:=a div 10;s:=a+b+c;if ((s mod 2)=0) then writeln('четное');else writeln('нечетное');readln;end.
    • Автор:

      dakota401
    • 2 года назад
    • 4
  • Добавить свой ответ

Войти через Google

или

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

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

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