Построить блок-схему алгоритма и написать программу - вопрос №5770174 от Эля6979 06.01.2022 22:35

Question

Информатика: Построить блок-схему алгоритма и написать программу для решения следующей . даны действительные числа x и y. если x и y отрицательны, то уаждое значение заменить его модулем; если отрицательно только одно из них, то оба значения увеличить на 0.5, в противном случае извлечь из каждого квадратный корень.

Эля6979 · Answer

var

x, y:real;

begin

readln(x, y);

if (x>0) and (y>0) then

begin

x:=sqrt(x);

y:=sqrt(y);

writeln(x,' ', y);

end;

if (x<0) and (y<0) then

begin

x:=x*(-1);

y:=y*(-1);

writeln(x,' ', y);

end;

if (x<0) or (y<0) then

begin

x:=x+0.5;

y:=y+0.5;

writeln(x,' ', y);

end;

end.

Построить блок-схему алгоритма и написать программу для решения следующей . даны действительные числ