Program test; var a, b, c : integer; x, y : real; begin writeln('Введите значения переменных a, b, c: '); readln(a, b, c); x:=(sqr(a)+sqr(b))/(sqrt(abs(a-c))+1); y:=sqr(sin(a))-sqr(cos(a)); writeln('X = ', x); writeln('Y = ', y); end.
2.
Program test; var x, y: integer; z:real; begin z:=0; writeln('Введите значения x, y: '); readln(x, y); if (x < y) then z := 2*(abs(x-y)); if (x > y) or (x = y) then z:= sqrt(2*y-x); writeln('Z = ', z); end.
Answers & Comments
Program test;
var
a, b, c : integer;
x, y : real;
begin
writeln('Введите значения переменных a, b, c: ');
readln(a, b, c);
x:=(sqr(a)+sqr(b))/(sqrt(abs(a-c))+1);
y:=sqr(sin(a))-sqr(cos(a));
writeln('X = ', x);
writeln('Y = ', y);
end.
2.
Program test;
var
x, y: integer;
z:real;
begin
z:=0;
writeln('Введите значения x, y: ');
readln(x, y);
if (x < y) then z := 2*(abs(x-y));
if (x > y) or (x = y) then z:= sqrt(2*y-x);
writeln('Z = ', z);
end.