Корпус , жёсткий диск . Всё!!!
I=16;
16₁₀=x₁₆
x₁₆=10₁₆
16₁₀=20₈
Цикл, в котором условие записано после тела цикла, выполнится как минимум 1 раз, а потом начнет проверять условие цикла. Цикл с предусловием может не выполниться ни разу, тк условие проверяется сразу. Цикл с предусловием используется когда у нас есть четкие границы выполнения
Program soprotiv; {Название программы}
<span>var r1, r2:real; {Задаем переменные} </span>
<span>c:byte; </span>
<span>begin {Начало программы} </span>
<span>write ('Введите 1 сопротивление... '); {Вывод сообщения о вводе данных} </span>
<span>readln (r1); {Ввод данных с клавиатуры} </span>
<span>write ('Введите 2 сопротивление... '); {Вывод сообщения о вводе данных} </span>
<span>readln (r2); {Ввод данных с клавиатуры} </span>
<span>write ('Если соединение параллельное, то нажмите клавишу 1, если соединение последовательное - нажмите 0...'); {Вывод сообщения о вводе данных} </span>
<span>readln (c); {Ввод данных с клавиатуры} </span>
<span>if c=1 {условие} </span>
<span>then writeln ('Сопротивление электрической цепи, соединенной параллельно=',(r1*r2)/(r1+r2)) {Вывод значения, при параллельном соединении} </span>
<span>else writeln ('Сопротивление электрической цепи, соединенной последовательно=',(r1+r2)); {Вывод значения, при последовательном соединении} </span>
<span>end. {Конец программы} </span>