Katya111zz3
24.12.2020 02:42

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

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Марта20012
23.06.2020 11:46
Program dsjugf;
uses crt;
var a,b,c,s: integer;
begin
readln(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.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота