Не могу после того, как вводишь значение n - программа зависает и ничего не делает (pascal abc). в чём проблема?
uses crt;
var s,n,i,x: integer;
a: array[1..100] of integer;
function factorial (a: integer): integer;
var x,z: integer;
begin
x: =a;
x: =a-1;
repeat
z: =x*a;
a: =z;
x: =x-1;
until x=1;
factorial: =a;
end;
begin
readln (n);
for i: =1 to n do
a[i]: =i;
for i: =1 to n do begin
a[i]: =factorial (a[i]);
end;
for i: =1 to n do
s: =0+a[i];
write (s);
end.

var

i, a, b, n, n2, j: longint;

s: string;

flag: boolean;

begin

Write('Введите через пробел границы диапазона: ');

Readln(a, b);

if b < a then begin n := a; a := b; b := n end;

if a < 11 then a := 11;

for i := a to b do

begin

Str(i, s);

n := Length(s); n2 := n div 2; flag := true; j := 1;

repeat

flag := (s[j] = s[n - j + 1]);

j := j + 1

until (not flag) or (j > n2);

if flag then Write(i, ' ')

end;

end.

Тестовое решение:

Введите через пробел границы диапазона: 800 1500

808 818 828 838 848 858 868 878 888 898 909 919 929 939 949 959 969 979 989 999

Объяснение:

1. 1,5 Кбайт

2. 8 бит

Объяснение:

1.

N = 2^i

N - мощность алфавита (количество символов в алфавите)

i - информационный вес одного символа алфавита

N = 64 символа

i = 6 бит (64 = 2^6)

I = K * i

I - информационный объём сообщения

K - количество символов в сообщении

i - информационный вес одного символа алфавита

K = 2048 символов

I = 2048 * 6 = 12288 бит

12288 бит = 12288 / 8 = 1536 байт (1 байт = 8 бит)

1536 байт = 1536 / 1024 = 1,5 Кбайт (1 Кбайт = 1024 байт)

2.

I = K * i

I = 32 Кбайт = 32 * 1024 = 32768 байт = 32768 * 8 = 262144 бит

K = 32768 символов

i = I / K

i = 262144 / 32768 = 8 бит

8 бит = 1 байт