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.
Пример:
Введите слово:
электрификация
электрифаця
Program test;
const s=45;
begin
writeln(sin(s):0:3);
end.
Вместе: 194240229236255
Каждая буква отдельно: 194 240 229 236 255
А)
1-b:=a(b:=5.8)
2-a:=b(a:=5.8)
а:=5.8 b:=5.8
б)
1-b:=a(b:=0)
2-a:=b(a:=0)
а:=0 b:=0