Дано трёхзначное число N определить является ли сумма первого и последнего чисел чётной
Нет комментариев
Ответы
Гость //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.
Нет комментариев
Похожие вопросы
Информатика
Помогите срочно даю 50 баллов...
Информатика
13 нужен ответ, пожалуйста...
Информатика
Не могу решить помогите пожалуйста...
Список предметов
