2^9 = 512 . Следовательно,чтобы закодировать 512 номеров страниц нужно 9 бит. Информация о местоположении закладки содержит 9 бит.
<span>readln(d); оператор, который считывает число d.
вероятно, тут нужно указать некоторое число d, при котором алгоритм выводит некоторый результат.
посмотрите задание более внимательно.</span>
Var s:string; p1,p2:integer;
begin
writeln('Введите слово:');
readln(s);
p1:=pos('жы',s);
p2:=pos('шы',s);
if (p1=0)and(p2=0) then writeln('Ошибок не замечено.');
if p1>0 then
begin
delete(s,p1,2);
insert('жи',s,p1);
writeln('Слово написано с ошибкой.');
writeln('Правильное написание - ',s);
end;
if p2>0 then
begin
delete(s,p2,2);
insert('ши',s,p2);
writeln('Слово написано с ошибкой.');
writeln('Правильное написание - ',s);
end;
end.
2.
var a,b:integer;
begin
write('a = ');
readln(a);
b:=(a mod 10)*100 + (a div 10 mod 10)*10 + a div 100;
writeln('b = ',b);
end.
Пример:
a = 194
b = 491
3.
var n,k5,k2,k1:integer;
begin
write('n = ');
readln(n);
k5:=n div 5;
k2:=(n-k5*5) div 2;
k1:=n-k5*5-k2*2;
writeln('5 кг - ',k5,', 2 кг - ',k2,', 1 кг - ',k1);
end.
Пример:
n = 18
5 кг - 3, 2 кг - 1, 1 кг - 1