С клавиатуры вводится двузначное число, если в нем - вопрос №17943959 от anyr04 24.05.2020 08:27

Question

Информатика: С клавиатуры вводится двузначное число, если в нем цифры одинаковые и оно четное, то вывести число без изменения, иначе вычесть из числа 10.

anyr04 · Answer

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.Объяснение:...