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

помогите решить задание 5 это инфа если что pascal ABC

  1. Ответ
    Ответ дан LikeSmileLJkee
    var x: array[1..3] of real; y: real; i: integer;
    begin
    x[1]:=11.8;
    x[2]:=6.39;
    x[3]:=5.54;
    for i:=1 to 3 do begin
    if (x[i]<0) then y:=x[i]-2 else y:=sqr(sin(x[i])/cos(x[i]));
    writeln('y[',i,'] = ,y);
    end;
    readln;
    end.
    1. Ответ
      Ответ дан fackoff21
      а есть другой варик решить
    2. Ответ
      Ответ дан fackoff21
      эту задачу
    3. Ответ
      Ответ дан LikeSmileLJkee
      Есть
    4. Ответ
      Ответ дан LikeSmileLJkee
      Сейчас изменю
    5. Ответ
      Ответ дан LikeSmileLJkee
      Исправил, пробуйте
Самые новые вопросы