Дано трехзначное число. проверить будет ли сумма его цифр четным числом.на Pascal abc
Дано трехзначное число. проверить будет ли сумма его цифр четным числом.
на Pascal abc
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы