// PascalABC.NET 3.0, сборка 1160 от 05.02.2016 begin ReadlnString('Слово:').Distinct.Println('') end.
Тестовое решение: Слово: балалайка балйк
И, на всякий случай, вариант "как в школе учат":
// PascalABC.NET 3.0, сборка 1160 от 05.02.2016 var w,r:string; i:integer; begin Write('Слово: '); Readln(w); r:=w[1]; for i:=2 to Length(w) do if Pos(w[i],r)=0 then r:=r+w[i]; Writeln(r) end.
Биология: Основатель второй теории эволюции - Чарльз Дарвин; Человек принадлежит к отряду Высших обезьян
География: Самая густонаселенная страна мира - Монако; У КНДР самая большая площадь в мире
Математика: 16 - это 2⁴; площадь треугольника вычисляется по формуле a*b*c*h - где a,b,c - стороны, а h - высота
Литература: Роман-эпопея "Война и Мир", написанная Л.Н. Толстым,основывается на реальных событиях...; "Горе от ума" - трагедия, в которой герой осваивает основы светской жизни
Информатика: пример конъюнкции: 1 && 1 = 1; пример конъюнкции: 0 && 1 = 1
begin
ReadlnString('Слово:').Distinct.Println('')
end.
Тестовое решение:
Слово: балалайка
балйк
И, на всякий случай, вариант "как в школе учат":
// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
var
w,r:string;
i:integer;
begin
Write('Слово: '); Readln(w);
r:=w[1];
for i:=2 to Length(w) do
if Pos(w[i],r)=0 then r:=r+w[i];
Writeln(r)
end.