<span>Правильный ответ Стриж
</span>
Андрей - Киев
Виктор - Тамбов
Николай - Ростов
Миша - Саратов
Только что созданный текстовый файл получил расширение txt
1029
максимально удаленные друг от друга цифры это 1 и 0, после них идут 2 и 9
<span>0 не может стоять в начале числа, т.к. оно не будет 4-х значным</span>
BEGIN
Ввести число N, проверить, что оно 4-значное.
read(N);
if (N >= 1000) and (N <= 9999) then
begin
Найти 2 цифру
A2 = Int(N / 100) Mod 10;
Найти 4 цифру
A4 = N Mod 10;
Сравнить их
if A2 > A4 then write "Вторая цифра больше, чем четвертая";
if A2 < A4 then write "Вторая цифра меньше, чем четвертая";
if A2 = A4 then write "Вторая цифра равна четвертой";
else
write "Число должно быть 4-значным!";
end;
Конец
END.