информатика . помогите срочно

Question

информатика . помогите срочно

Иван Невзоров Ученик (128), на голосовании 4 года назад

Автомат получает на вход пятизначное десятичное число но полученному числу строится новое десятичное число по следующему правилу:
1)Вычисляются два числа - сумма первой, третьей и пятой цифр и сумма второй и четвертой цифр заданного числа.
2)Полученные два числа записываются друг за другом в порядке неубывания (без разделителей).
Пример: исходное число: 14351.Поразрядные суммы: 5,9.
Результат: 95

Answer 1

Павел А. Коржов Высший разум (101774) 5 лет назад

А что сделать надо?

Answer 2

Вито Скалето Знаток (343) 5 лет назад

хз

Answer 3

begin
var x: integer;
while (x < 10000) or (x > 99999) do x := ReadInteger('Исходное число:');
var x1 := x div 10000 mod 10 + x div 100 mod 10 + x mod 10;
var x2 := x div 1000 mod 10 + x div 10 mod 10;
write('Поразрядные суммы: ', x1, ',', x2, #10, 'Результат: ');
if x1 > x2 then write(x1, x2) else write(x2, x1)
end.