Ответ(ы) на вопрос:
Гость//Pascal ABC.NET v3.1 сборка 1219
Var
x:real;
begin
read(x);
if x<-3 then writeln('5');
if (x>=-3) and (x<2) then writeln(2*sqr(x));
if x>=2 then writeln(3-x);
end.
Пример ввода:
1
Пример вывода:
2
Не нашли ответ?
Похожие вопросы