var x, y: real;
begin
readln(x, y);
x := sqrt(x);
y := sqr(y);
x := x + 1;
y := y + x;
writeln(y);
end.
_____________
var x, y: integer;
readln(x);
if x > 0 then y := 2 * x else y := -1 * 2 * x;
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var x, y: real;
begin
readln(x, y);
x := sqrt(x);
y := sqr(y);
x := x + 1;
y := y + x;
writeln(y);
end.
_____________
var x, y: integer;
begin
readln(x);
if x > 0 then y := 2 * x else y := -1 * 2 * x;
writeln(y);
end.