Написать программу по задаче: Автомат получает на вход четырехзначное десятичное число. По полученному числу строится новое десятичное число по следующим правилам. 1. Вычисляются два числа - сумма двух старших и сумма двух младших разрядов. 2. Полученные два числа записываются друг за другом в порядке невозрастания (без разделителей).

Question

Информатика

Лаврюся

17 июля, 04:33

Написать программу по задаче: Автомат получает на вход четырехзначное десятичное число. По полученному числу строится новое десятичное число по следующим правилам. 1. Вычисляются два числа - сумма двух старших и сумма двух младших разрядов. 2. Полученные два числа записываются друг за другом в порядке невозрастания (без разделителей).

+1

Ответы (1)

Знаете ответ на вопрос?

Атя · Answer 1

Var

A, B:integer;

Begin

ReadLn (A) ;

B: = (A div 1000) + ((A div 100) mod 10) ;

A: = ((A div 10) mod 10) + (A mod 10) ;

if A>=B then Write (B, A)

else if B>=A then Write (B, A)

End.