С клавиатуры вводятся два символа. Определить четная ли сумма их кодов? (паскаль)

Question

Информатика

Эдит

18 июля, 16:44

С клавиатуры вводятся два символа. Определить четная ли сумма их кодов? (паскаль)

+2

Ответы (1)

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

Костюша · Answer 1

Var c1, c2:char;

begin

readln (c1, c2) ;

if odd (ord (c1) + ord (c2))

then writeln ('Сумма кодов нечётна')

else writeln ('Сумма кодов чётна') ;

end.

Пример:

AB

Сумма кодов нечётна