Ответы и объяснения

Лучший Ответ!
2014-03-24T16:14:51+04:00
Program chik;
 var i,j:integer;
a:array[1..8,1..8]of integer;
begin
for i:=1 to 8 do
begin
for j:=1 to 8 do
begin
if(i=j)or(i=8-j+1)then a[i,j]:=i+j else a[i,j]:=0;
write(a[i,j]:3,' ');
end;
writeln;
end;
end.
2)
program chik; 
var i,n:integer;
R,B,x,y:real;
begin
readln(R);
readln(B);
readln(n);
for i:=1 to n do
begin
read(x,y);
if(sqr(X)+sqr(y)<=R)and(y>=0)and(y<=x+B)then writeln('Принадлежить')  else writeln('No');
end;
end.