Ответ 2.
Самый короткий маршрут: A-B-D - 5 часов.
Устройства вывода: монитор, принтер, наушники, колонки, плоттер
var
x, n:integer;
begin
write('n = ');
readln(n);
x := n mod 10;
n := n div 10;
while n > 0 do
begin
if n mod 10 < x then
begin
writeln('Последовательность неупорядочена по возрастанию');
readln;
Exit;
end;
x := n mod 10;
n := n div 10;
end;
writeln('Последовательность упорядочена по возрастанию');
readln;
end.
var
a,b:integer;
begin
readln(a);
a:=a*9;
while a<>9 do
begin
b:=0;
while a<>0 do
begin
b:=b+a mod 10;
a:=a div 10;
end;
a:=b;
end;
end.
Маша-рояль,английский; Оля-виолончель,немецкий; Лена-скрипка,французский; Валя-арфа,итальянский.