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

Question

Информатика

Сашуля

3 декабря, 04:39

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

+4

Ответы (1)

Знаешь ответ?

Нимфодора · Answer 1

Var c1, c2:char;

begin

readln (c1, c2);

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

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

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

end.

Пример:

AB

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