автомобиль проехал 3 участка пути разной длины с разными скоростями найдите среднюю скорость автомобиля составить алгоритм
Ответы
Ответ дал:
10
1)Алгоритм в паскале, если все скорости известны
program avto;var a,b,c,d:real;beginwriteln ('Введите 3 скорости автомобиля');read (a,b,c);d:=(a+b+c)/3;write ('Средняя скорость автомобиля:', d);end.
program avto;var a,b,c,d:real;beginwriteln ('Введите 3 скорости автомобиля');read (a,b,c);d:=(a+b+c)/3;write ('Средняя скорость автомобиля:', d);end.
EvgenyRaskolnikov:
упс. щас поправить попробую
program avto;
var a,b,c,d:real;
begin
writeln ('Введите 3 скорости автомобиля');
read (a,b,c);
d:=(a+b+c)/3;
write ('Средняя скорость автомобиля:', d);
end.
var a,b,c,d:real;
begin
writeln ('Введите 3 скорости автомобиля');
read (a,b,c);
d:=(a+b+c)/3;
write ('Средняя скорость автомобиля:', d);
end.
И вот тебе еще одна программа, на случай если неизвестен путь и неизвестно время
program avto2;
var a,b,c,d,a1,b1,c1:real;
begin
writeln ('Введите длинну трех участков пути');
read (a,b,c);
writeln ('Введите время затраченное на каждый путь');
read (a1,b1,c1);
d:=(a+b+c)/(a1+b1+c1);
write ('Средняя скорость автомобиля:', d);
end.
var a,b,c,d,a1,b1,c1:real;
begin
writeln ('Введите длинну трех участков пути');
read (a,b,c);
writeln ('Введите время затраченное на каждый путь');
read (a1,b1,c1);
d:=(a+b+c)/(a1+b1+c1);
write ('Средняя скорость автомобиля:', d);
end.
Вас заинтересует
1 год назад
2 года назад
2 года назад
3 года назад
3 года назад
8 лет назад