• клавиатуры вводится трёхзначное число. Нужно вывести ответ «Да», если все его цифры четные, и ответ «Нет» в остальных случаях. Если введено не трёхзначное число, должно быть выведено сообщение «Неверное число».
    pascal

Ответы 1

  • program chisla;uses crt;var a,b,c,d:integer;beginwrite('Введите трехзначное число');Readln(a);if ((a div 100)>0) and ((a div 100)<=9) then beginb:=a div 100;c:=(a-(b*100)) div 10;d:=a-b-(c*10);if ((b/2)=(b div 2)) and ((c/2)=(c div 2)) and ((d/2)=(d div 2)) then Writeln('Да') else writeln('Нет');endelsewriteln('Неверное число');end.
    • Автор:

      felix30
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

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

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

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