Предмет: Информатика,
автор: ilyshaaaaa
автомобиль проехал 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.
Похожие вопросы
Предмет: Математика,
автор: rozhkovckii
Предмет: Химия,
автор: dianaionova0500
Предмет: Физика,
автор: gixxiddktjzjtzj
Предмет: Алгебра,
автор: Arx1med
Предмет: Алгебра,
автор: салиха5