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

Программирование
Задание 1

  1. Ответ
    Ответ дан Gleb1Kosyrev
    {Не до конца понимаю что значит в данном контексте произвольного, так что выложу оба возможных варианта}
    1)//С вводом.
    var x,y:real;
    begin;
    readln(x);
    if x=4.5 then
     begin;
      writeln('Нельзя делить на ноль');
      exit;
     end;
    y:=(5*x-16*sqr(x))/(4*x-18);
    writeln(y);
    end.

    2)//C случайным числом
    var x,y:real;
    begin;
    randomize;
    x:=random(100);
    writeln('X=',x);
    if x=4.5 then
     begin;
      writeln('Нельзя делить на ноль');
      exit;
     end;
    y:=(5*x-16*sqr(x))/(4*x-18);
    writeln(y);
    end.
Самые новые вопросы