BIOS
или ПЗУ - Постоянное запоминающее устройство
-----------------
Var s1,s2,s3 : real; // стоимости тетради, карандаша и линейки
sum:real; // стоимость покупки
<em>3. 11 +1 = 100, 111 +1 = 1 0 0 0, 1111 +1 = 1 0 0 0 0, 11111 +1 = 1 0 0 0 0 0.</em>
<em>2. Сделаешь сам, это элементарно очень. Берешь число и делишь его на два.....Остатки, которые я подчеркнул красным....считаешь в обратном порядке. ..</em>
<em>1. Тоже решишь сам, вот подсказка: Для перевода двоичного числа в десятичное необходимо это число представить в виде суммы произведений степеней основания двоичной системы счисления на соответствующие цифры в разрядах двоичного числа</em><span><em>. </em></span>
127, а в двоичной системе счисления 1111111
Program abc;
var x,min,i:integer;
begin
min:=30000;
for i:=1 to 4 do
begin
writeln('Ввежите число');
readln(x);
if x<min then min:=x;
end;
writeln(min);
end.