решение вашего во вложении
первый проходит 1 км за x км, второй за (x+5) км. скорость первого 1/x км/мин, второго 1/(x+5) км/мин. второй был в пути 2,5 часа или 2,5*60 = 150 мин. вышли из а и пришли в в одновременно. значит, первый затратил на весь путь тоже 150 мин.
второй за 150 мин прошёл км.
первый прошёл 1/5 пути или км за мин.
затем он вернулся в а за то же время, 10 мин пробыл в а, и прошёл весь путь за мин. всего же он затратил 150 мин, то есть
первый проходит 1 км за 10 мин. значит, весь путь
var
n: longint;
k,sum: integer;
begin
write ('n = ');
readln(n);
k: =0;
sum: =0;
while n < > 0 do
begin
if (n mod 10) mod 2 = 0 then
begin
k: =k+1;
sum: =sum+(n mod 10);
end;
n: =n div 10;
end;
writeln ('summa: ',sum);
writeln ('kol-vo: ',k);
readln;
end.
Поделитесь своими знаниями, ответьте на вопрос: