1) однозначных номеров - 9 страниц (1,2,...,9) - 9 цифр
2) двузначных - 90 страниц (10,11,...99) - 180 цифр
3) осталось 534-9-180=345 цифр
4) 345:3=115 страниц
5) 9+180+115=214 страниц <---- ответ
Program zadacha;
var s:string;
begin
writeln ('Введите слово "курсор"');
readln (s);
delete(s,1,4);
insert('танц',s,1);
writeln(s);
end.
Для записи одного из 13 значений требуется log(2)13 ≈ 4 разряда, для записи одного из 99 значений - log(2)99 ≈ 7 разрядов, т.е. в 7/4 - 1,75 раз больше.
===== PascalABC.NET =====
function sogl(c: char) :=
not (c.ToUpper in ('АЕЁИОУЫЭЮЯ'));
// проверка функции
begin
var s := 'ТестируемРусскийАлфавит';
foreach var c in s do
Print(sogl(c));
end.
На самом деле все это будет правильно работать лишь если функции давать исключительно русские буквы.
Uses crt;
var
tovar:real;
begin
tovar:=20.4;
writeln(tovar*2);
writeln(tovar*3);
writeln(tovar*4);
writeln(tovar*5);
writeln(tovar*6);
writeln(tovar*7);
writeln(tovar*8);
writeln(tovar*9);
writeln(tovar*10);
end