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

Question

91

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

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

aphrodisiac · Accepted Answer

42

aphrodisiac

29 января 2024

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.

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: