Нарисовать цепочку бусин длинны 6, для которой все следующие утверждения истинны: -в этой цепочке следующая бусина после третьей - синяя, - в этой цепочке предпоследняя бусина - зеленая круглая, - в этой цепочке предыдущая бусина перед пятой - треугольная, - первая и последняя бусины в этой цепочке - одинаковые квадратные бусины.

👇

Увидеть ответ

Ответ:

Kriiisskriiiis

12.10.2021

Интересно...

Это разве информатика?

4,8(92 оценок)

Открыть все ответы

Ответ:

Lollital

12.10.2021

ответ:Решение

АЛГОРИТМ МАЛЕНЬКИЕ КВАДРАТЫ

алг квадраты_1

нач

нц 5 раз

опустить перо

сместиться на вектор (2, 0)

сместиться на вектор (0, 2)

сместиться на вектор (- 2, 0)

сместиться на вектор (0, - 2)

поднять перо

сместиться на вектор (3, 0)

опустить перо

сместиться на вектор (1, 1)

сместиться на вектор (- 1, 1)

сместиться на вектор (- 1, - 1)

сместиться на вектор (1, - 1)

поднять перо

кц

кон

АЛГОРИТМ БОЛЬШИЕ КВАДРАТЫ

алг квадраты_2

нач

нц 4 раз

опустить перо

сместиться на вектор (2, 0)

сместиться на вектор (0, 2)

сместиться на вектор (- 2, 0)

сместиться на вектор (0, - 2)

поднять перо

сместиться на вектор (4, - 1)

опустить перо

сместиться на вектор (2, 2)

сместиться на вектор (- 2, 2)

сместиться на вектор (- 2, - 2)

сместиться на вектор (2, - 2)

поднять перо

кц

кон

АЛГОРИТМ ПРЯМОУГОЛЬНИКИ

алг прямоугольники_1

нач

нц 5 раз

опустить перо

сместиться на вектор (0, 1)

сместиться на вектор (- 3, 0)

сместиться на вектор (0, - 2)

сместиться на вектор (3, 0)

сместиться на вектор (0, 1)

сместиться на вектор (- 1, 0)

сместиться на вектор (0, - 2)

сместиться на вектор (3, 0)

сместиться на вектор (0, 2)

сместиться на вектор (- 2, 0)

поднять перо

сместиться на вектор (4, 0)

кц

кон

АЛГОРИТМ УЗОР

алг часть_1

нач

нц 4 раз

опустить перо

сместиться на вектор (0, 2)

сместиться на вектор (2, 0)

поднять перо

сместиться на вектор (- 3, - 1)

кц

кон

алг часть_2

нач

нц 4 раз

опустить перо

сместиться на вектор (0, 2)

сместиться на вектор (- 2, 0)

поднять перо

сместиться на вектор (3, - 1)

кц

кон

алг часть_3

нач

нц 4 раз

опустить перо

сместиться на вектор (2, 0)

сместиться на вектор (0, 2)

поднять перо

сместиться на вектор (- 1, - 3)

кц

кон

алг часть_4

нач

нц 4 раз

опустить перо

сместиться на вектор (0, - 2)

сместиться на вектор (2, 0)

поднять перо

сместиться на вектор (- 3, 1)

кц

кон

использовать Чертежник

алг узор_1

нач

часть_1

сместиться на вектор (5, - 5)

часть_2

сместиться на вектор (- 3, - 7)

часть_3

сместиться на вектор (- 7, 3)

часть_4

кон

АЛГОРИТМ УЗОР 2

использовать Чертежник

алг узор_2

нач

часть_3

сместиться на вектор (4, 3)

часть_4

сместиться на вектор (1, - 6)

часть_1

сместиться на вектор (- 9, 2)

часть_2

кон

Объяснение:

4,4(69 оценок)

Ответ:

vitokle

12.10.2021

Задача №1

var a:array [1..20] of integer;
i:integer;
begin
randomize;
for i:=1 to 20 do begin
a[i]:=random(19-(-10)+1)+-10;
write (a[i],' ');
end;
end.

Задача №2

var a:array [1..20] of integer;
i:integer;
begin
writeln('Введите числа в интервале [-20;29]');
for i:=1 to 10 do read(a[i]);
for i:=1 to 10 do
if (a[i]>-29) and (a[i]<20) then write(a[i],' ');
end.

Задача №3

var a:array [1..20] of integer;
i,sum:integer;
begin
randomize;
sum:=0;
for i:=1 to 20 do
begin
a[i]:=random(19-(-10)+1)+-10;
write (a[i],' ');
if a[i]>0 then sum:=sum+1;
end;
writeln('Количество положительных элементов массива = ', sum);
end.

Задача №4

var a:array [1..20] of integer;
i:integer;
begin
randomize;
for i:=1 to 20 do
begin
a[i]:=random(19-(-10)+1)+-10;
if a[i]<0 then a[i]:=0;
write (a[i],' ');
end;
end.

Задача №5

var a:array [1..20] of integer;
i,sum:integer;
begin
randomize;
sum:=0;
for i:=1 to 20 do
begin
a[i]:=random(19-(-10)+1)+-10;
write (a[i],' ');
if a[i]>0 then sum:=sum+a[i];
end;
writeln('Сумма положительных элементов массива = ', sum);
end.

4,8(5 оценок)

Это интересно:

Образование-и-коммуникации

01.09.2020

Как нарисовать банан: подробная инструкция для начинающих...

Стиль-и-уход-за-собой

07.05.2020

Правильный выбор парика: все, что вам нужно знать...

Компьютеры-и-электроника

04.07.2022

Как удалить историю поиска в iPod Touch: шаги по настройке конфиденциальности...

Здоровье