Ответ на седьмое - винчестер
Program fagasg;
var g,h: Real;
i: integer;
begin
g:=3;
h:=3;
For i:=2 to 10 do
begin
g:=g+i+1;
h:=g*h;
end;
Writeln(h);
<span>end. </span>
1. например арбуз и мяч (один размер и форма)
Подбирай по этому принципу.
Выделены отдельно Р и S в 4 и 6 блоке ( можно их не писать , а P и S записать в 9 блоке( в нем же допиши вывод ,а во 2 блоке ввод, забыл)). Чуть в кадр не поместился, но у тебя все эти формулы в пограмме. Удачи!
<em>а) Поместить2 </em>
<em>Ждать</em>
<em>Перевернуть2</em>
<em>Ждать</em>
<em>Убрать2</em>
<em>Поместить2</em>
<em>Ждать</em>
<em>Перевернуть2</em>
<em>Ждать</em>
<em>Урать2</em>
<u>б) Поместить2</u>
<u>Ждать</u>
<u>Перевернуть2</u>
<u>Ждать</u>
<u>Убрать2</u>
<u>Поместить2</u>
<u>Ждать</u>
<u>Убрать1</u>
<u>Поместить1</u>
<u>Ждать</u>
<u>Убрать1</u>
<u>Поместить1</u>
<u>Ждать</u>
<u>Убрать2</u>