Значения выражения 10(16) +10(8) *10(2) в двоичной системе счисления равно 1)1010(2) 2)11010(2) 3) 1000000(2) 4) 110000(2) c решением,

"цикл со счётчиком"

в начале присваивает заданной переменной (переменная-счётчик) начальное число. переменной-счётчиком может быть любая переменная типа integer, затем в зависимости от направления прибавляет (to) или убавляет (downto) счётчик на единицу. цикл начинает повторение пока счётчик будет меньше или равен второму числу. когда счётчик стал больше второго числа, цикл выполняет строки команд до конца, но уже не начинает повторять из снова.

в строках с цикла не должно быть команды, которая изменяет значение счётчика, иначе будет ошибка. счётчик нельзя изменять   внутри цикла пока он идёт.

for переменнаясчётчик : = число направление второечисло do

begin

  строки с , которые должен повторять цикл;

end;

программа, которая выводит числа от 5 до 10 и в конце пишет "конец"

program raf105;

var i: integer;

begin

for i: =5 to 10 do

begin

  writeln(i);

end;

writeln('конец');

end.

"цикл с условием старта"

начинает повторение, только если соблюдено заданное условие

while условие do

begin

  строки с , которые должен повторять цикл;

end;

программа, которая просит ввести 1, если введено не 1, то просит ввести снова. когда введено 1, пишет "вы ввели 1. конец"

program raf105;

var a: integer;

begin

write('введите 1: ');

readln(a);

while a < > 1 do

begin

  write('вы ввели не 1. введите число снова: ');

  readln(a);

end;

writeln('вы ввели 1. конец');

end.

"цикл с условием завершения"

похож на цикл while, только заканчивает повторение, если соблюдено условие. обычно используется если цикл нужно повторить хотя бы 1 раз.

repeat

  строки с , которые должен повторять цикл;

until условие;

программа, которая запрашивает пароль, если введено 123, то выводит "конец" если введено не 123, то выводит сообщение "введите пароль снова"

program raf105;

var a: integer;

begin

a: = 0;

repeat

  if a = 0

    then write('введите пароль: ')

    else write('введите пароль снова: ');

  readln(a);

  until a = 123;

  writeln('конец');

end.