помогите с информатикой
10-11 класс
|
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.
Другие вопросы из категории
итра?
Операция 8 л 5 л 3 л
до перелива 8 0 0
1-ый перелив
2-й перелив
3-й перелив
4-й перелив
5-й перелив
6-й перелив
7-й перелив
Помогите решить ,спасибо.
Читайте также
Нужно записать фрагмент программного кода,который получает слово романтика из слова информатика и выводит результат на экран
Вычислить разность между наибольштм и наименьшим элементами массива