Question

проверить совпадают ли цифры на нечетных местах в введенном пятизначном числе на паскаль​​

Answer 1

##

var s := ReadInteger.ToString;

var c := s[1];

Print( if s[3::2].All(t -> t = c) then 'Совпадают' else 'Не совпадают')