Задача. Между населёнными пунктами A, B, C, D, E, F построены дороги, протяжённость которых (в километрах) - id1109274220200603 от zheckachernev 03.06.2020 18:14

Question

Информатика: Задача. Между населёнными пунктами A, B, C, D, E, F построены дороги, протяжённость которых (в километрах) приведена в таблице. Определите длину кратчайшего пути между пунктами АИ F, проходящего через пункт D. Передвигаться можно только по дорогам, протяжённость которых указана в таблице.

zheckachernev · Accepted Answer

Var A,S,n:integer; Begin WriteLn( Введите целое число ); ReadLn(A); S:=0; n:=0; While A 0 do    Begin    S:=S+A mod 10;    n:=n+1;    A:= A div 10    End; WriteLn( Sr = ,S/n); End. Var A,S:integer; Begin WriteLn( Введите целое число ); ReadLn(A); S:=0; While A 0 do    Begin    if (A mod 10) mod 3 = 0 then S:=S+A mod 10;    A:=A div 10    End; WriteLn( S = ,S); End. Var A,m:integer; Begin WriteLn( Введите целое число ); ReadLn(A); m:=9; While A 0 do    Begin    if A mod 10 m then m:= A mod 10;   ...

MOGZ ответил