Предмет: Информатика, автор: Ильдар1111111

Паскаль помогите пожалуйста.

Приложения:

Ответы

Автор ответа: 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
Похожие вопросы
Предмет: Математика, автор: mikhailgavrish68