Var n:string;
begin
readln(n);
writeln('Число сотен: ',n[4]);
writeln('Число тысяч: ',n[3]);
<span>end.</span>
Содержательный подход (с точки зрения человека) - количественная оценка содержания неопределенности в сообщении.
Алфавитный подход (с точки зрения техники) - подсчет количества символов в сообщении с учетом информационного веса одного символа.
//PascalABC.NET 3.1 сборка 1239
uses PT4;
var
f: text;
s: string;
i, n: integer;
begin
Task('Text2');
readln(s);
readln(n);
assign(f, s);
Rewrite(f);
s := '';
for i := 1 to n do
begin
s := s + chr(96 + i);
writeln(f, s);
writeln(s);
end;
Close(f);
end.
1) 10 мин. = 600 сек
45×40=1800 сим.
90×600=54000 сим.
54000÷1800=30 страниц
2) 1.25 мб=1310720 б
1310720÷2560=512 бит.
и получается 2 в 512 степени символов
Var
ch, mo, di: longint;
otvet, s: string;
begin
readln(ch);
otvet := '';
while ch <> 0 do
begin
di := ch div 8;
mo := ch mod 8;
str(mo, s);
otvet := s + otvet;
ch := di;
end;
writeln(otvet);
end.