Помогите пожалуйста составить блок-схему ветвление по этой задаче: Program Program1; var s,v1,v2,v3,t1,t2,t3:real; begin write('Введите скорость движения по равнине: '); readln(v1); write('Введите скорость движения в гору: '); ...
Помогите пожалуйста составить блок-схему ветвление по этой задаче:
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.
Гость
Ответ(ы) на вопрос:
Не нашли ответ?
Похожие вопросы