Язык Паскаль. Напишите программу, которая моделирует работу следующего автомата. Автомат получает на вход трехзначное число и строит новое число следующим образом: 1) вычисляются суммы первой и второй, затем - второй и третьей цифр; 2) эти суммы записываются в порядке не возрастания. Например, для числа 639 получаем суммы: 6 + 3 = 9; 3 + 9 = 12. Результат: 129 Напишите программу, которая реализует работу данного автомата
помогите1185
2
26.02.2021 12:28
8 
Популярные вопросы
- Будь ласка скажіть гарних п`ять речень з прямою мовою...
3 - Составить 3 предложение со словами: организм,выделение,размножение,раздражимость...
3 - Отцу 42 года,сыну 10. когда отец был или будет старше сына в...
3 - Проснувшись, винни-пух обнаружил что его ходики остановились....
1 - Пануючі вітри в єкваторіальному поясі...
1 - Решить адачу по амега для углерода=84%. для водорода=16%. плотность...
2 - Раскройте скобки и как пишеться слитно или нет (в)виду надвигающегося...
2 - Какой грех семейство медичи искупало пожертвованиями на нужды...
2 - Выпишите формулы или название веществ, которые кипят при более...
3 - Теплоход км по течению реки и 42 км против течения реки, затратив...
2
var N,a,b,c,s1,s2:integer;
begin
Writeln('Напишите трёхзначное число');
ReadLn(N);
a:= N div 100;
b:= N div 10 mod 10;
c:= N mod 10;
s1:= a+b;
s2:= b+c;
if s1<s2 then
write(s2,s1)
else
write(s1,s2);
end.