Program N1;
var a,c1,c2,c3: integer;
begin
writeln('Введите число');
read(a);
c1:=a mod 10;
c2:=(a div 10) mod 10;
c3:=(a div 100) mod 10;
writeln('Кол-во сотен = ',c3);
writeln('Кол-во десятков = ',c2);
writeln('Кол-во единиц = ',c1);
end.
7горшков по 8 литров и 1 горшок 4 литра ....
Var x,y : real;
begin
write('x = '); readln(x);
write('y = '); readln(y);
if (x*x+y*y<=6*6)and((x<=0)or(y<=0))
then writeln('Да')
else writeln('Нет')
end.
Пример:
<span>x = -3
y = 3
Да</span>
Существует 16*8 = 128 вариантов местонахождения книги. Из этих количеств вариантов необходимо выбрать один.
N = 128, а I = 7, т.к. 128 = 2^7
Ответ: 7 бит