Var a, b, c, d, e, f, final : integer;
begin
write('введите 6 чисел через пробел: ');
readln(a, b, c, d, e, f);
final := (a + b + c + d + e+ f) / 6;
writeln('среднее арифметическое равно , final);
end.
В общую длину пути будет входить длина пути AC = 10
Длина пути напрямую из C в F (CF) = 8.
Нам нужно проверить, если ли смысл ехать в другой нас. пункт из C, чтоб сократить общий путь.
Варианты, где расстояние из C в другой нас. пункт больше или равно CF отбрасываем. У нас остаются:
Теперь проверим, из какого из этих пунктов расстояние в F не превышает расстояние CF - 8.
Найдем общий размер пути, который нужно преодолеть с самого начала и найдем меньший
- ACBF = 10 + 6 + 1 = 17
- ACDF = 10 + 2 + 4 = 16
- ACEF = 10 + 5 + 0 = 15
Ответ:
Длина кратчайшего пути между пунктами А и F, проходящая через пункт С = 15 (ACEF).
var a,a1,a2,a3 : integer;
begin
readln(a);
a1:=a div 100;
a2:=(a mod 100) div 10;
a3:=(a mod 100) mod 10;
writeln(a1+a2+a3);
end.
а - само число, а1-число сотен, а2-число десятков, а3-число единиц