profile
Опубликовано 5 лет назад по предмету Информатика от Ильдар1111111

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

  1. Ответ
    Ответ дан Gleb1Kosyrev
    //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
Самые новые вопросы