Напишите минимум 20 символов, чтобы объяснить все.
Var x,y:integer;
begin
x:=25;
y:=-20;
while x*y<0 do begin
x:=x-5;
y:=y+2
end;
writeln('x=',x,' y=',y);
end.
// x = 0
// y = -10
5*2=10 23> 10
ответ да хватит
Что надо сжечь сделать напиши в то я не поняла ))
program test;
var x,y: integer;
begin
read(x,y);
if (x>=-3) and (x<=2)
and (y>=-1) and (y<=1)
then write ('входит') else write ('не входит');
end.