Var s:string; i:integer; m:set of char;
begin
writeln('Введите слово:');
readln(s);
m:=[];
i:=1;
while i<=length(s) do
if s[i] in m then delete(s,i,1) else begin m:=m+[s[i]]; i:=i+1; end;
writeln(s);
end.
Пример:
Введите слово:
электрификация
электрифаця
Ответ:
243
Объяснение:
используются 0, 1, 2 - это система счисления по основанию 3
позиций 5: от 00000 до 22222
всего возможных чисел = 3 в степени 5 = 243
Log2 (1/p1)=4
p1=1/16;
p2=1/32(в 2 раза меньше)
log2 (1/р2)=5
Входные данные: a, b (смотри строку с cin>>...;)
Выходные данные: s (смотри строку с cout<<...;)
Из самого задания не совсем понятно, что за входные и выходные данные имеются ввиду. Написал я переменные, которым мы присваиваем значение при вводе и значение переменной, которой мы выводим.