первая, третья и четвёртая задачи (Pascal)
Объяснение:
program v1;
var x, y, z: double;
begin;
readln(x);
readln(y);
if (x>y) then
z := x-y
else
z := y-x+1;
writeln(z);
end.
program v3;
var x, y, z: double;
begin;
readln(x);
readln(y);
if (x>y) then
z := sqr(x)
else
z := sqr(y);
writeln(z);
end.
program v4;
var x, y, z: double;
begin;
readln(x);
readln(y);
if (x<y) then
z := x*2
else
z := y*2;
writeln(z);
end.
