Даны х и у. Возвести их в квадрат. Если оба они отрицательные, то увеличить на 100. Ес?
Даны х и у. Возвести их в квадрат. Если оба они отрицательные, то увеличить на 100. Ес??и оба они положительные, то оставить без изменений.
Гость
Ответ(ы) на вопрос:
Гость Var x,y,x1,y2:real;
begin
readln(x,y);
x1:=sqr(x);
y2:=sqr(y);
if ((x1 < 0) and (y2 < 0))
then begin x1:=100 + x1; y2:=100 + y2; writeln(x1:0:0); write(y2:0:0) end;
if ((x1 > 0) and (y2 > 0))
then begin writeln(x1:0:0); write(y2:0:0) end;
end.
Не нашли ответ?
Похожие вопросы