Статистика
Всего в нашей базе более 4 327 657 вопросов и 6 445 963 ответов!

помогите с информатикой

10-11 класс

Katyachaika97 10 янв. 2017 г., 5:22:19 (7 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
авипрол
10 янв. 2017 г., 7:46:24 (7 лет назад)

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 литров подсолнечного масла на две равные части по 4 литра,если кроме полного 8-литрового бидона есть два пустых бидона на 5 литров и 3 л

итра?

Операция 8 л 5 л 3 л

до перелива 8 0 0

1-ый перелив

2-й перелив

3-й перелив

4-й перелив

5-й перелив

6-й перелив

7-й перелив

Помогите решить ,спасибо.

Читайте также

помогите с информатикой,пожалуйста)

Нужно записать фрагмент программного кода,который получает слово романтика из слова информатика и выводит результат на экран

помогите с информатики 19 номер
Ребят!!! Срочно!!! Помогите с информатикой пожалуйста

Вычислить разность между наибольштм и наименьшим элементами массива



Вы находитесь на странице вопроса "помогите с информатикой", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.