Ответ:
Включить блютуз и зайти в приложен е ми бэнд, потом включить браслет
Использовать Робот
алг
нач
нц пока не справа свободно
закрасить
вверх
кц
нц пока не сверху свободно
закрасить
вправо
кц
если сверху свободно то
влево
вниз
все
нц пока не слева свободно
закрасить
вниз
кц
если сверху свободно то
вверх
все
кон
Блок-схема и программа - в прилагаемых файлах
Program z3; Var y: array [1..15] of real; g: array [1..20] of real; i,d, a,b: integer; sum, sum_2: real;Begin writeln('Введите оплату труда за день'); read(d); a:= 0; b:= 0; for i := 1 to 15 do begin y[i] := random (30); if (y[i] < 10) then a:= a + 1; y[i] := y[i] * d * 0.8; end; for i:=1 to 20 do g[i] := random (30); if (g[i] < 10) then b:= b + 1; g[i] := g[i] * d * 0.8; for i:=1 to 15 do begin writeln('Сотрудник y_',i,' - ',y[i]); sum:= sum + y[i]; end; writeln; writeln('Сумма отдела y - ', sum); writeln; for i:=1 to 20 do begin writeln('Сотрудник g_',i,' - ',g[i]); sum_2:= sum_2 + g[i]; end; writeln; writeln('Сумма отдела g - ', sum_2); writeln; writeln('В отделе y ', a, ' сотрудников работало меньше 10 дней'); writeln; writeln('В отделе g ', b, ' сотрудников работало меньше 10 дней'); End.
D
/ \
Игры. Мои документы
| |
Квесты 7 класс
| / \
Шерлок Холмс.exe Русский язык Математика
| |
Орфограммы.txt Домашнее задание .doc