Информатика, опубликовано 2018-08-22 18:19:24 by Гость

Дано трехзначное число. проверить будет ли сумма его цифр четным числом.на 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.

Не нашли ответа?

Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.