Решите задачу по Паскалю пожалуйста!
program noname;uses crt;varx,y:real;beginclrscr;write('x='); readln(x);write('y='); readln(y);if (x>1) or (x<-1)or (y>1) or (y<-1) thenwriteln('no')else writeln('yes');readkey;end.
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
program noname;
uses crt;
var
x,y:real;
begin
clrscr;
write('x='); readln(x);
write('y='); readln(y);
if (x>1) or (x<-1)or (y>1) or (y<-1) then
writeln('no')
else writeln('yes');
readkey;
end.