Игнатий
4 год назад
СРОЧНООООООО СЧЕТ НА МИНУТЫ! с клавиатуры вводятся числа. конец ввода 0. определите количество двузначных чисел, сумма цифр которых четная
ОТВЕТЫ
Борис
Oct 24, 2020
var
n, sum :integer;
begin
readln(n);
sum:= (n div 10) + (n mod 10);
write(sum,' - ');
if sum mod 2 = 0 then
write('четная')
else
write('нечетная');
end.
n, sum :integer;
begin
readln(n);
sum:= (n div 10) + (n mod 10);
write(sum,' - ');
if sum mod 2 = 0 then
write('четная')
else
write('нечетная');
end.
352
Смежные вопросы: