Program DZ1 input output var X1 Y1 REAL begin Writeln Введите Readln s

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
Program DZ1 (input, output);
var X, X1, Y1, Y: REAL;
begin
Writeln('Введите X:');
Readln(X);
Y:= (sin(X)/cos(X))+(-abs(X));
Writeln(' При Х=', X: 8:3, ' Y=', Y: 8:3);
Writeln(' Y11=', TRUNC(Y): 4, ' Y22=', ROUND(Y): 4);
Writeln('Введи координаты: Х1, Y1');
Readln(X1, Y1);
Writeln((X1>=0) AND (Y1>=0) AND (SQR(X) + SQR(Y)=1));
end.