Если взять за предпологаемый объём 1000л, то: 1-ое действие узнаём сколько литров заполняет вторая труба за 1 час т.е. 1000/24=41,67л
2 -ое действие узнаём сколько литров заполняют две трубы за 1 час т.е. теже 1000/8=125л
3 -тье действие Зная сколько литров льёт "вторая" за час и "обе" за час находим сколько приходится на "первую" т.е. 125-41,67=83.33л
4 -ое действие тотже объём 1000/83,33=12 получается, что первой трубе понадобиться 12 часов чтобы заполнить бассейн объёмом в 1000л.
Вот такое возможное решение.
Program Program1;
var
s,v1,v2,v3,t1,t2,t3:real;
begin
write('Введите скорость движения по равнине: ');
readln(v1);
write('Введите скорость движения в гору: ');
readln(v2);
write('Введите скорость движения под гору: ');
readln(v3);
write('Введите время движения по равнине: ');
readln(t1);
write('Введите время движения в гору: ');
readln(t2);
write('Введите время движения под гору: ');
readln(t3);
S:=t1*v1+t2*v2+t3*v3;
writeln('Путь = ',S);
end.
Program Program2;
var
s,v,v1,t1,t2:real;
begin
write('Введите скорость лодки в стоячей воде: ');
readln(v);
write('Введите скорость течения реки: ');
readln(v1);
write('Введите время движения по озеру: ');
readln(t1);
write('Введите время движения против течения реки: ');
readln(t2);
S:=t1*v+t2*(v-v1);
writeln('Путь = ',S);
end.
