var a, ch1, ch2: integer; begin Writeln('Введите число: '); Read(a); ch1 := a div 10; ch2 := a mod 10; if (ch1 mod 2 = 0) and (ch2 mod 2 = 0) then Writeln('Сумма четных цифр: ', ch1 + ch2) else if (ch1 mod 2 = 0) then Write('Только первое число четное: ', ch1) else if (ch2 mod 2 = 0) then Write('Только второе число четное: ', ch2) else Writeln('Нет четных цифр') end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
