Сделать рисунки по координатам: страус (0; 0), (-3; -1), (-4; -4), (-4; -8), (-6; -10), (-6; -8, 5), (-5; -7), (-5; -1), (-3; 1), (-1; 2), (-2; 3), (-3; 5), (-5; 3), (-5; 5), (-7; 3), (-7; 5), (-9; 2), (-9; 5), (-6; 8), (-4; 8), (-3; 6), (-1; 7), (1; 7), (0; 9), (-3; 8), (0; 10), (-3; 10), (0, 12), (-3; 12), (-1; 13), (2; 13), (0; 15), (2; 15), (4; 14), (6; 12), (5; 10), (4; 9), (3; 7), (7; 5), (9; 8), (9; 11), (7; 14), (7; 16), (9; 17), (10; 17), (11; 16), (14; 15), (10; 15), (14; 14), (11; 14), (10; 13), (11; 11), (11; 8), (10; 5), (8; 2), (7; 1), (4; 0), (2; -2), (3; -4), (4; -5), (6; -6), (8; -8), (9; -10), (7, 5; -9), (7; -8), (6; -7), (2; -5), (1; -3), (0; 0), глаз (9, 5; 16) собака (-7; 4, 5), (-8; 5), (-10, 5; 3, 5), (-10; 3), (-7; 4, 5), (-5; 5, 5), (-5, 5; 8), (-5; 8), (-4, 5; 6), (-4; 6), (-3; 8), (-2, 5; 8), (-3; 6), (-2, 5; 5, 5), (-3; 4, 5), (-2; 2), (0; 1), (4, 5; 0), (7; 4), (8; 4), (5, 5; 0), (6; -5), (4, 5; -6), (4; -5), (4, 5; -4, 5), (4; -4), (3, 5; -3), (4; -4), (3; -6), (-1, 5; -6), (1, 5; -5, 5), (2, 5; -5), (2, 5; -4, 5), (3, 5; -3, 5), (2, 5; -4, 5), (2; -5), (2; -4), (1; -5), (1; -4, 5), (0; -5), (0; -6), (-2; -6), (-1, 5; -5), (-1; -5), (-1; -4, 5), (-2; -4, 5), (-2, 5; -6), (-4; -5), (-3, 5; -2, 5), (-3; -2, 5), (-3, 5; -4), (-4; -1), (-4, 5; 0, 5), (-4, 5; 1), (-5, 5; 0), (-6; 0, 5), (-6, 5; -1), (-8; 0), (-9; -1), (-10; 3), глаз: (-5, 5; 3, 5), (-5, 5; 4, 5), (-4, 5; 4, 5), (-4, 5; 3, 5), (-5, 5; 3, 5
Ответы
Program pr;
uses crt;
Var N,M:array[1..15] of integer;
i,kNp,kMp,kNo,kMo:integer;
Begin
kNp:=0;
kMp:=0;
kNo:=0;
kMo:=0;
Writeln('mas(N)');
for i:=1 to 15 do Begin N[i]:=random(36)-15; Write(N[i],';') end;
Writeln;
Writeln('mas(M)');
for i:=1 to 15 do Begin M[i]:=random(36)-15; Write(M[i],';') end;
for i:=1 to 15 do Begin
if N[i]>=0 then kNp:=kNp+1
else kNo:=kNo+1;
if M[i]>=0 then kMp:=kMp+1
else kMo:=kMo+1;
end;
Writeln;
Writeln('Кол-во положительных массива N=',kNp);
Writeln('Кол-во отрицательных массива N=',kNo);
Writeln('Кол-во положительных массива M=',kMp);
Writeln('Кол-во отрицательных массива M=',kMo);
readln;
end.
Данная задача является алгоритмом. Мы должны выстроить последовательность действий так,чтобы не остаться в проигрыше.
Цель: перевезти животных и капусту,так,чтобы никто из них не наведил друг другу. Перевозчик-это исполнитель(объект выполняющий действие)
1)Взять козу,переплыть,высадить.
2)Переплыть, взять волка,переплыть,высадить,взять козу,переплыть высадить.
3) Взять капусту, переплыть, высадить.
4)Переплыть,взять козу, переплыть,высадить.
5) Конец алгоритма(4 пункт является результатом последовательно выполненных действий)
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Формы познанияинформатика 6 класс
Найти количество кратных 13 чисел от 1 до 1000
Найти минимальное значение функции y=sin(x)*x, на отрезке [C, D] с шагом 0, 001 построить блок схему
Тебе даются координаты (вообщем две циферки)
Первая показывает расстояние по горизонтали ↔️
Вторая растояние по вертикали ↕️
То есть если точка (1; 2) то на горизонтали это 1 (можешь начертить вертикальную линию напротив 1) а 2 (можешь начертить горизонтальную линию напротив 2) и на их пересечении и будет эта точка