Question

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

Answer 1

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.

Answer 2

Большое вам спасибо!

Answer 3

не за что..рада была помочь)