Question

Дано трёхзначное число N определить является ли сумма первого и последнего чисел чётной

Answer 1

//Pascal
var N: integer;
begin
write('Введите число:'); readln(N);
writeln(N div 100); writeln(N mod 10);
if ((N div 100)+(N mod 10)) mod 2 = 0 then
  writeln('Сумма четная')
else
  writeln('Сумма нечетная');
end.