Автомат принимает трёхзначное число, вычисляет сумму двух старших разрядов (сотен и десятков), а также сумму двух младших разрядов (десятков и единиц). Затем эти суммы выводятся на экран в порядке убывания (без пробелов). Напишите программу, которая моделирует работа автомата.

Программа выполнена на ЯПВУ Паскаль. С помощью комментариев раскрыты ключевые действия программы. Пример программы:

var

z, a1, a2, a3, s1, s2: integer; //объявление переменных

begin

While (a1=0) or (a1>9) do / /проверка на трехзначность с помощью цикла

begin

write ('Укажите трехзначное число: ');

readln (z); //указываем искомое число

a1:=z div 100; //поиск значения сотен, также используется в проверке на трехзначность

end;

a2: = (z mod 100) div 10; //вычисление десятков

a3: = (z mod 10); //вычисление единиц

s1:=a1+a2; //сумма старших разрядов

s2:=a2+a3; //сумма младших разрядов

if s1>s2 then write (s1, s2) / /вывод результатов, идет проверка значения сумм с помощью условия

else write (s2, s1);

end.