Ответ(ы) на вопрос:
Гостькак-то так
var
v, s, f: real;
begin
s := 3500;
readln(v);
f := 11;
if (v > 90) and (v < 130) then
f := 8;
writeln(s * f / 100);
end.
Не нашли ответ?
Похожие вопросы