Номер 16, страница 181 - гдз по информатике 8 класс учебник Босова, Босова

Вопросы и задания. Параграф 4.4. Программирование разветвляющихся алгоритмов. Глава 4. Начала программирования на языке Паскаль - номер 16, страница 181.

Условие.

16. Напишите программу, моделирующую работу исполнителя Автомат, который получает на вход трёхзначное натуральное число и строит новое число следующим образом:

1) вычисляет суммы первой и второй, затем второй и третьей цифр;

2) выводит полученные суммы в порядке неубывания.

Например, для числа 125 будут получены суммы: 1+2 = 3, 2 + 5=7. Результат: 37.

Решение.

var
a,b,c, d, s1, s2: integer;
begin
writeln ('Введите трехзначное число');
readln (a);
b:= a div 100;
c:= (a mod 100) div 10;
d:= a mod 10;
s1:=b+c;
s2:=c+d;
if s1>s2 then
writeln (s2, s1)
else writeln (s1, s2);
end.