Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var v1,v2,t,t1: real;
begin
read(v1,v2,t,t1);
writeln(v1*(t+t1)< =v2*t1);
end.
var i: integer;
s,v: real;
read(i,v);
case i of
1: s: =pi*v*v;
2: s: =pi*v*v/4;
3: s: =v*v/pi/4;
end;
writeln(s);
Популярные вопросы