1024
x=0
x=x+1
x=x+1
x=x*2 (9раз)
<span>
</span>500<span>x=0
x=x+1
x=x+1
x=x+1
x=x*2
x=x+1
x=x*2
x=x+1
x=x*2
x=x+1
x=x*2
x=x*2
x=x+1
x=x*2
x=x*2</span>
Если ученик один, то один к одному, если аудитория, то один ко многим
Сообщение в юникоде будет занимать в 2 раза больше места. Уравнение:
x + 8000 = 2x
x = 8000
Ответ: 8000 битов.
5) Цикл Пока не сундук, повторять:
Шаг вперед
Если впереди препятствие,
выполнить: Поворот направо
Конец цикла
Только забрать алмаз не получится.
6) Цикл Пока не сундук, повторять:
Шаг вперед
Если слева НЕ препятствие,
выполнить: Поворот налево.
Конец цикла
Program g;
var a,b,c,i:integer;
begin
writeln('Введите количество чисел');
readln(a);
c:=1;
writeln('Введите ', a, ' чисел(а)');
for i:=1 to a do
begin
readln(b);
c:=c*b;
end;
writeln('Произведение чисел=',c);
readln;
<span>end.
Program g;
var a,b,c:integer;
begin
writeln('Введите 2 числа');
readln(a,b);
if (a+b)>0 then
c:=(a*a)+(b*b)
else
c:=(a+b)*(a+b);
writeln('Результат=',c);
readln;
<span>end.
</span>
Третье задание не понял.</span>