а ты вообще знаешь как они различаются
В левом нижнем углу иконка Пуск
Нажимаете на нее, далее жмем на кнопку Завершение Работы
Var
a: integer;
a1, a2, a3, max: byte;
begin
readln(a);
a1 := a div 100;
a2 := a mod 100 div 10;
a3 := a mod 10;
max := a1;
if (a2 > max) then
max := a2;
if (a3 > max) then
max := a3;
writeln(max);
end.
1-3, 2-2, 3-2 скорее всего, там плохо видно, 4- D:\каталог и все
Затратят наименьшее количество времени если к первому пойдёт 7, ко второму-7 и третьему 6. кол-во времени:1.25 ч