Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Помогите с программированием!прошу!

Ответ оставил Гость

Var A, t1, t2, S1, S2:integer;
v1, v2: real;
begin
readln(A, t1, t2);
S1:=20;
S2:=A-S1;
v1:=S1/t1;
v2:=S2/t2;
if v1>v2 then
writeln(Скорость была выше до обеда)  ;
if v1writeln(Скорость была выше после обеда)
else
writeln(Скорость была одинаковой)
end.