50 км/ч скорость мотоциклиста
Пошаговое объяснение:
Пусть скорость мотоциклиста = х км/ч
Тогда скорость велосипедиста = х-30 км/ч
Весь путь от А до Б = 1 (1 целая часть)
Тогда: 1 - 2/7 = 5/7 части пути до встречи проехал мотоциклист
Мотоциклист проехал 5/7 пути со скоростью х км/ч
Велосипедист проехал 2/7 пути со скоростью х-30 км/ч
Время они затратили одно и то же, тогда :
5/7 : х = 2/7 : (х - 30)
5/7*(х-30) = 2/7х
5/7х - 150/7 = 2/7х
5/7х - 2/7х = 150/7
3/7х = 150/7
х = 150/7 : 3/7 = 150/7 * 7/3
х = 50 (км/ч) скорость мотоциклиста
var
a,b,c,x,y:real;
begin
Write('Введите a и b: '); Read(a,b);
repeat
Write('Введите c, не равное нулю: ');
Read(c)
until c<>0;
x:=2*sqr(a)-b/(3*c);
{
Если Вы относитесь к людям, ненавидящим скобки
и тех, кто решает Ваши задания, то в Вашем условии
на 3а делится все выражение, и тогда предыдущая строка
должна иметь вид x:=(2*sqr(a)-b)/(3*a);
}
if x>=0 then
begin y:=sqrt(x+sqr(c))+4*a*b; Writeln('x=',x,', y=',y) end
else
Writeln('x=',x,', y вычислить нельзя, под корнем отрицательное значение')
end.
Тестовое решение:
Введите a и b: 3.4 -2.18
Введите c, не равное нулю: 0
Введите c, не равное нулю: 5.172
x=23.2605001288992, y=-22.5762191684909
50 км/ч скорость мотоциклиста
Пошаговое объяснение:
Пусть скорость мотоциклиста = х км/ч
Тогда скорость велосипедиста = х-30 км/ч
Весь путь от А до Б = 1 (1 целая часть)
Тогда: 1 - 2/7 = 5/7 части пути до встречи проехал мотоциклист
Мотоциклист проехал 5/7 пути со скоростью х км/ч
Велосипедист проехал 2/7 пути со скоростью х-30 км/ч
Время они затратили одно и то же, тогда :
5/7 : х = 2/7 : (х - 30)
5/7*(х-30) = 2/7х
5/7х - 150/7 = 2/7х
5/7х - 2/7х = 150/7
3/7х = 150/7
х = 150/7 : 3/7 = 150/7 * 7/3
х = 50 (км/ч) скорость мотоциклиста
var
a,b,c,x,y:real;
begin
Write('Введите a и b: '); Read(a,b);
repeat
Write('Введите c, не равное нулю: ');
Read(c)
until c<>0;
x:=2*sqr(a)-b/(3*c);
{
Если Вы относитесь к людям, ненавидящим скобки
и тех, кто решает Ваши задания, то в Вашем условии
на 3а делится все выражение, и тогда предыдущая строка
должна иметь вид x:=(2*sqr(a)-b)/(3*a);
}
if x>=0 then
begin y:=sqrt(x+sqr(c))+4*a*b; Writeln('x=',x,', y=',y) end
else
Writeln('x=',x,', y вычислить нельзя, под корнем отрицательное значение')
end.
Тестовое решение:
Введите a и b: 3.4 -2.18
Введите c, не равное нулю: 0
Введите c, не равное нулю: 5.172
x=23.2605001288992, y=-22.5762191684909