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