256 символов можно закодировать 8 битами (2^8=256) = 1 байт
100 страниц * 30 строк * 60 символов * 1 байт = 180000 байт
216000 байт/мин = 216000/60 байс/сек = 3600 байт/сек
180000 байт / 3600 байт/сек = 50 секунд
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.
Надеюсь, что так)
По крайней мере нас на информатике вот так гоняли.
rghost.**ru/68dDLdlX4-звёздочки сотри)
Вот так
var
a: array[1..9999] of real;
i, n, b: integer;
begin
randomize;
Write('Введите число эементов массива:'); readln(n);
b:=0;
for i:=1 to n do
begin
a[i]:=-5+random(11);
writeln('a[', i, ']=', a[i]);
if a[i]=5 then b:=b+1;
end;
writeln('Кол-во элементов, равных 5: ', b);
end.