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

Question

Информатика

Анастасиюшка

5 сентября, 00:09

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

+4

Ответы (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

Неверно