Var
r,a:real;
begin
readln(a);
a:=a*100;
r:=a/4.45;
writeln(r:0:5);
end.<span>
</span>
Нц 3 раз
влево
кц
нц 3 раз
вверх
кц
закрасить
нц
пока справа свободно ,то
вправо
закрасить
кц
нц
пока снизу свободно,то
вниз
закрасить
кц
нц
пока слева свободно,то
влево
закрасить
кц
нц
пока сверху свободно,то
вверх
закрасить
кц
В 8 литровом оставить 4 литра и остальные 4 разделить в 5 литровый
Опять похожая задача у тебя) Держи решение:
const m=?; {Вместо "?" нужно вписать любое число}
Var s:real;
Begin
s:=0;
for i:=2 to m do
if sin(i)<0 then s:=s+sin(i);
writeln(s);
End.
35 = 2^i
i = 6 бит - 1 символ
10*6 = 60 бит информации