Паскаль помогите пожалуйста.
Приложения:
Ответы на вопрос
Ответил Gleb1Kosyrev
0
//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
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
Новые вопросы