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

решите пожалуйста задачу в pascalABC​

  1. Ответ
    Ответ дан shavrinatv

    Ответ:

    Объяснение:

    program func;

    uses math;

    var

     a,b,h,x,y:real;

    begin

    Writeln('ВВедите а  b  h');

    readln(a,b,h);

    if a>b then begin writeln('a >b ');exit;end;

    x:=a;

    while x<=b do

    begin

    y:=power(x,2)/sin(x+3);

    writeln('x=',x:4:2,' y=',y:6:2);

    x:=x+h;

    end;

    readln;

    end.