1. 1
2. архиватор
3. 3
4. 2
5. программа
Var x,y: real;
var a,b,c,d:integer;
begin
readln(x,y);
if (y<1) then
write ('1')
else write ('0');
if (y<-x) then
write ('1')
else write ('0');
if sqr(x)+sqr(y)<1 then
write ('1')
else write ('0');
if sqr(x-1)+sqr(y)<1 then
write ('1')
else write ('0');
<span>end.</span>
Ответ на картинке,решали уже мы это
<span>Любое наглядное пособие, используемое на уроках, является моделью</span>
Формула не измениться, так как закреплена за определенной ячейкой