Предмет: Информатика,
автор: Ильдар1111111
Паскаль помогите пожалуйста.
Приложения:

Ответы
Автор ответа:
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
Похожие вопросы
Предмет: Математика,
автор: mikhailgavrish68
Предмет: Қазақ тiлi,
автор: bobylevaola2
Предмет: Математика,
автор: aaslamova42
Предмет: Математика,
автор: gridnevamarina
Предмет: Химия,
автор: gdj2001