Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

МНОГО БАЛЛОВ. Написать на языке Паскаль данную задачу. Желательно, с пояснениями.
Дано целое 3-хзначное число. определить, является ли сумма его цифр четной.

Ответ оставил Гость

var a,s:integer;
begin
repeat
write(vvedite triohznacinoe cislo:);
readln(a);
until(a>99)and(a<1000);
s:=a div 100+a div 10 mod 10+a mod 10;
 if s mod 2=0 then
writeln(summa zifr ciotnaia)
else
writeln(summa zifr neciotnaia);
readln;
end.