Var
x,y:integer;
begin
readln (x);
while x>0 do
begin
y:=x mod 10;
x:=x div 10;
end;
writeln ('Первая цифра = ',y);
end.
Б.мыши. г.окно а.вариантов в. меню "Пуск" .вроде так
2^9 = 512 . Следовательно,чтобы закодировать 512 номеров страниц нужно 9 бит. Информация о местоположении закладки содержит 9 бит.
Var x,y:real;
begin
write('x = ');
readln(x);
y:=x/3;
writeln('y = ',y);
end.
Пример:
x = 15
y = 5
1. Моем котел и топор.
2. Кладем топор в котел.
3. Наливаем воду в котел.
4. Ставим котел на огонь.
5. Помешиваем варево.
6. Пробуем.
7. Солим воду.
8. Пробуем.
9. Кладем крупу.
10.Пробуем.
11.Кладем масло.
12.Пробуем.
13.Едим.