даны 2 числа больше некоторого введенного k получить квадрат из модулей, если числа отрицательные, то сложить их, в противном случае увеличить числа в 3 раза
Ответы
Ответ дал:
0
var a,k,v:real;
begin
readln(a,k);
if a>k then begin
v:=abs(a*a);
write(v);
end;
if (a<0) and (k<0) then
v:=a+k
else
writeln(a+3,' ',k-3);
end.
begin
readln(a,k);
if a>k then begin
v:=abs(a*a);
write(v);
end;
if (a<0) and (k<0) then
v:=a+k
else
writeln(a+3,' ',k-3);
end.
Похожие вопросы
2 года назад
7 лет назад
7 лет назад
10 лет назад
10 лет назад