<span>program name;
var i,n,x,summa,count:integer;
nechet:boolean;
begin
Writeln('Vvedite n: ');
readln(n);//получаем n
summa:=0;
count:=0;
i:=1;
if(n mod 2 = 1) then nechet := true else nechet := false; //проверяем четное число или нет
while i<n do begin//пока число меньше n
if(nechet) then//если число нечентное
begin
summa:=summa+i*i*i;//прибавляем к сумме куб этого числа
end
else//если число четное
begin
summa:=summa+i*i;//прибавляем квадрат числа
end;
i:=i+1;//прибавляем число на 1
end;
writeln(' summa: ', summa);//выводим сумму
readln();
end.</span>
вообщем получиться такая фраза : жду тебя в семь
Program sr_arifm;
var N,s, sa, cifra: integer;<span>
begin
</span>write(‘N=’);
readln (N);
i:=0;
s:=0;
while N>=0 do
begin
cifra:=n mod 10;
i:=i+1;
if (i = 2) or (i=5) then s:=s+cifra;
n:= n div 10;
end;
sa:=s/2;
writeln (‘sa=’, sa);
end.
<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>
Конечно в)
Рыбак с рыболовной сетью, паук с паутиной, а юзер с интернетом)