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

Даны вещественные ненулевые числа x, y. Если они имеют разные знаки, то отрицательное заменить его абсолютным значением. В противном случае оба числа заменить на число 100.

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

    на паскале решить?

     

    var x,y:real;
    begin
    Writeln('Input x: ');
    Readln(x);
    Writeln('Input y: ');
    Readln(y);
    if ((x>0) and (y>0))or((x<0) and (y<0)) then
    begin
    x:=100;
    y:=100;
    end;
    if ((x<0) and (y>0)) then
    x:=Abs(x);
    if ((x>0) and (y<0)) then
    y:=Abs(y);
    Writeln('Result: ');
    Writeln('x=',x:5:2);
    Writeln('y=',y:5:2);
    readln;
    end.

Самые новые вопросы