С клавиатуры вводится двузначное число, если в нем цифры одинаковые и оно четное, то вывести число без изменения, иначе вычесть из числа 10.
Vania161
2
13.04.2021 18:33
0
Другие вопросы по теме Информатика
ирмук
18.04.2019 19:54
leralagbibl
06.06.2019 12:00
Shiro228
03.11.2020 19:06
antipingv2004
03.11.2020 19:06
X5Z6
03.11.2020 19:05
SuЯfeЯ
03.11.2020 19:05
Zelka20199
03.11.2020 19:05
krisrinanovokr
27.06.2019 11:00
МирославаКарповичь
02.10.2019 07:50
Популярные вопросы
- Вычислительной (дроби) 22/23 - 18/23 + 5/23 б) 8 7/9 + (7 5/9 - 4 4/9 в)11 2/19...
3 - Однокоренные слова для слова умудренный...
1 - Правила поведения после эвакуации во время наводнения...
1 - Какое число получается четное или нечетное если число 0 разделить на любое натуральное...
3 - Объясните выражение: богатыми можно стать,а знатными нужно родиться ....
3 - За віршами рудакі складіть порадник як достойно прожити на світі...
2 - На правой чаше весов находится груз, масса которого в 4 раза меньше груза на левой...
2 - 200г масла стоит 2манат .найдите цену 1кг,2кг,3кг масла.запишите выражение с переменной...
3 - За 32 минуты дежурный по кухне очистил 20 картофелин сколько картофеля наночастиц...
1 - Из 3кг муки выпекают 114 пирожков. сколько пирожков получится из 141кг муки?...
3
var a,x,c:integer;
begin
writeln ('Введите двухзначное число');
readln(a);
x:=a div 10;
c:=a div 10;
if (x=c) and (a mod 2=0) then writeln (a-10) else writeln (a);
end.
Объяснение: