Горный Paint с осоом на иконке
Ответ:
1. Использовать Робот
алг "Любое слово:)"
нач
нц пока справа свободно
закрасить
вправо
кц
вниз
вниз
нц пока слева свободно
закрасить
влево
кц
кон
2. Использовать Робот
алг "Любое слово-словосочетание:)"
нач
вправо
вправо
нц пока снизу свободно
вниз
вправо
закрасить
кц
нц пока слева свободно
влево
кц
вверх
вправо
вправо
вправо
вправо
нц пока снизу свободно
вниз
вправо
закрасить
кц
нц пока слева свободно
влево
кц
вверх
вправо
вправо
вправо
вправо
нц пока снизу свободно
вниз
вправо
закрасить
кц
нц пока слева свободно
влево
кц
вверх
вправо
вправо
вправо
кон
3) Использовать Робот
алг "Любое словосочетание"
нач
нц пока снизу свободно
вниз
кц
вправо
вверх
вверх
закрасить
нц пока сверху свободно
вверх
кц
вправо
вниз
вниз
закрасить
нц пока снизу свободно
вниз
кц
вправо
вверх
вверх
закрасить
нц пока сверху свободно
вверх
кц
вправо
вниз
вниз
закрасить
нц пока снизу свободно
вниз
кц
вправо
вверх
вверх
закрасить
нц пока сверху свободно
вверх
кц
вправо
вниз
вниз
закрасить
нч пока снизу свободно
вниз
кц
вправо
вверх
вверх
закрасить
нц пока сверху свободно
вверх
кц
вправо
вниз
вниз
закрасить
нц пока снизу свободно
вниз
кц
вправо
вверх
вверх
закрасить
нц пока сверху свободно
вверх
кц
вправо
вниз
вниз
закрасить
нц пока снизу свободно
вниз
кц
вправо
вверх
вверх
закрасить
кон
Если ты рассчитываешь произведение нужно писать не X=X*d,а P=X*D
13. C (т.к. последнее было зануление д)
14. B (real)
15. C (24)
16.A (0)
17.D(15)
18.B (но вот что интересно, дак то что и под D подойдёт но не во всех случаях)
19.А
20.D (8) 20 mod 7(пол 6) + 5 div 4 * 2(пол 2) = 8
21. С (12)
22. B(43)
23.D(readln)
24.A(write)
25.C(end)
Begin
// ввести значения массива а и значение Q
for i:=1 to 8
for j:=1 to 9
if a[i,j]>Q then
begin
sum=sum+a[i,j];
kol=kol+1;
end;
if kol>0 then
sr=sum/kol;
write('srednee= ',sr);
else
write('net takih chisel');
end.