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

помогите написать программу напаскале абс

  1. Ответ
    Ответ дан SanGreen74
    var x,f:real; 
    begin 
    writeln('Введите значение x –'); 
    read(x); 
    if x<=0 then f:=-x else 
    if (x>0) and (x<2) then f:=sqr(x) else f:=4; 
    writeln('Значение функции f(x) = ',f); 
    end.
    1. Ответ
      Ответ дан zulfat98
      спасибо большое
Самые новые вопросы