Программа проверяющая верно ли утверждение что сумма цифр двузначного числа четное (на паскале)

Question

Информатика

Нинура

17 февраля, 23:43

Программа проверяющая верно ли утверждение что сумма цифр двузначного числа четное (на паскале)

+3

Ответы (1)

Знаете ответ на вопрос?

Горгония · Answer 1

Var a, s:integer;

begin

write ('a = ') ;

readln (a) ;

s:=a div 10 + a mod 10;

writeln ('s = ', s) ;

if s mod 2 = 0

then writeln ('Верно')

else writeln ('Неверно') ;

end.

Пример:

a = 25

s = 7

Неверно