Предмет: Информатика,
автор: udalova2
даны два числа возвести в квадрат отрицательные извлечь корень квадратный из положительных.
Ответы
Автор ответа:
0
var x,y:real;
begin
read(x,y);
if x<0 then x:=x*x else x:=sqrt(x);
if y<0 then y:=y*y else y:=sqrt(y);
write(x,' ',y);
end.
begin
read(x,y);
if x<0 then x:=x*x else x:=sqrt(x);
if y<0 then y:=y*y else y:=sqrt(y);
write(x,' ',y);
end.
Похожие вопросы
Предмет: Русский язык,
автор: Аноним
Предмет: Химия,
автор: Tchikinavarvara
Предмет: Химия,
автор: lollgsa3
Предмет: Физика,
автор: MalibuLife