Даны два числа возвести в квадрат отрицательные извлечь корень квадратный из положительных.

анна2248 анна2248    2   05.06.2019 22:30    1

Ответы
9SawHoffman 9SawHoffman  06.07.2020 09:23
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика