ответ: 14 км /час, 2 км/час.
Объяснение:
Дано. За 30 мин по течению проходит такое же расстояние, что и за 40 мин против течения
2 км против течения проходит за 10 мин.
Найти V собств катера и V реки
V катера против течения = S/t=2:1/6 =12 км/час
Расстояние равно S=vt. 40 мин=2/3 часа.
S=12 * 2/3 = 8 км.
Скорость по течению равна V=S/t=8 : 1/2= 8*2=16 км /час.
Скорость течения реки равна (V по течению - V против течения)/2=
= (16-12)/2=4/2=2 км /час.
Собственная скорость катера равна 12+2=14 км/ час или 16-2 =14 км /час.
procedure max(a,b,c:integer; var q:integer);
begin
if a>b then if b>c then q:=b else q:=c;
if a<b then if a<c then q:=c else q:=a;
end;
...
var a1,b1,c1, a2,b2,c2, a3,b3,c3:integer;
... Вводим
max(a1,b1,c1,a1);
max(a2,b2,c2,a2);
max(a3,b3,c3,a3);
max(a1,a2,a3,a1);
... Выводим а1
end.
var a1,b1,c1,a2,b2,c2,a3,b3,c3:integer;
max1,max2,max3,min1,min2,min3:integer;
max,min,rar:integer;
procedure pr(a,b,c:integer;var z,w:integer);
if (a>=b) and (a>=c)then z:=a;
if (a<b) and (a<c) then w:=a;
if (b>=a) and (b>=c)then z:=b;
if (b<a) and (b<c) then w:=b;
if (c>=a) and (c>=b)then z:=c;
if (c<a) and (c<b) then w:=c;
read(a1,b1,c1);
pr(a1,b1,c1,max1,min1);
read(a2,b2,c2);
pr(a2,b2,c2,max2,min2);
read(a3,b3,c3);
pr(a3,b3,c3,max3,min3);
pr(max1,max2,max3,max,rar);
pr(min1,min2,min3,rar,min);
write(max,' ',min);
ответ: 14 км /час, 2 км/час.
Объяснение:
Дано. За 30 мин по течению проходит такое же расстояние, что и за 40 мин против течения
2 км против течения проходит за 10 мин.
Найти V собств катера и V реки
V катера против течения = S/t=2:1/6 =12 км/час
Расстояние равно S=vt. 40 мин=2/3 часа.
S=12 * 2/3 = 8 км.
Скорость по течению равна V=S/t=8 : 1/2= 8*2=16 км /час.
Скорость течения реки равна (V по течению - V против течения)/2=
= (16-12)/2=4/2=2 км /час.
Собственная скорость катера равна 12+2=14 км/ час или 16-2 =14 км /час.
procedure max(a,b,c:integer; var q:integer);
begin
if a>b then if b>c then q:=b else q:=c;
if a<b then if a<c then q:=c else q:=a;
end;
...
var a1,b1,c1, a2,b2,c2, a3,b3,c3:integer;
begin
... Вводим
max(a1,b1,c1,a1);
max(a2,b2,c2,a2);
max(a3,b3,c3,a3);
max(a1,a2,a3,a1);
... Выводим а1
end.
Объяснение:
var a1,b1,c1,a2,b2,c2,a3,b3,c3:integer;
max1,max2,max3,min1,min2,min3:integer;
max,min,rar:integer;
procedure pr(a,b,c:integer;var z,w:integer);
begin
if (a>=b) and (a>=c)then z:=a;
if (a<b) and (a<c) then w:=a;
if (b>=a) and (b>=c)then z:=b;
if (b<a) and (b<c) then w:=b;
if (c>=a) and (c>=b)then z:=c;
if (c<a) and (c<b) then w:=c;
end;
begin
read(a1,b1,c1);
pr(a1,b1,c1,max1,min1);
read(a2,b2,c2);
pr(a2,b2,c2,max2,min2);
read(a3,b3,c3);
pr(a3,b3,c3,max3,min3);
pr(max1,max2,max3,max,rar);
pr(min1,min2,min3,rar,min);
write(max,' ',min);
end.