Умножить число 1010 на число 101 (числа в двоичной системе счисления, ответ дать в двоичной системе счисления)

Кажется так, но точно не уверенна 111010

Любой цикл for можно переделать в while не особо думая:

for счетчик := начальное to конечное do

begin

 что-то

end;

это тоже самое, что и

счетчик := начальное;

while счетчик <= конечное do

begin

 что-то

 счетчик := счетчик + 1;

end;

И там и там переменная счетчик сначала равна начальному значению, затем с ней что-то делают, и счетчик увеличивается. Если счетчик стал слишком большим, цикл прекращается.

Переделанная программа может выглядеть так:

program more;

var

 s, i: integer;

begin

 s := 0;

 i := 20;

 while i <= 40 do

 begin

   if (i mod 2) = 0 then  

     s := s + i;

   i := i + 1;

 end;

 writeln(s)

end.

С:\School115\8Forms\8A

Объяснение:

С:\School115\7Forms\7A.

1. Поднялся на один уровень вверх.  - получилось С:\School115\7Forms

2.Повторил 1 действие.  - еще раз на уровень выше, С:\School115

3.Спустился в каталог 8Forms.  - получилось С:\School115\8Forms

4.Спустился на один уровень вниз.   - получилось С:\School115\8Forms\???, где ??? - какой-то неизвестный каталог

5.Снова поднялся на уровень вверх и спустился в каталог 8А.  - сначала вернулся в С:\School115\8Forms, потом спустился в С:\School115\8Forms\8A