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

Question

Информатика

Нюса

25 сентября, 18:52

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

+4

Ответы (1)

Знаешь ответ?

Пётр · Answer 1

Program zadanie;

Var a, b, s1, s2, n:integer;

Begin

Writeln ('Введите 3-х значное целое число');

Readln (n);

a:=n div 100;

b: = (n div 10) mod 10;

s1:=a+b;

a: = (n mod 100) mod 10;

s2:=a+b;

Writeln (s1, s2);

End.