Var a, b, c, d, s, k: integer;
begin
write('Введите k: '); readln(k);
a := k div 1000; {тысячи}
b := (k mod 1000) div 100; {сотни}
c := (k mod 100) div 10; {десятки}
d := k mod 10; {единицы}
s := d * 1000 + c * 100 + b * 10 + a;
writeln('k = ', k, #10, 's = ', s);
end.
Ответ:
I=100б, k=20- количество символов. i=100/20=5
Мощность алфавита N=2*i = 10
Объяснение:
Audi; BMW; Volkswagen; Datsun; KIA