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.
Пример:
Введите слово:
электрификация
электрифаця
Здесь очень не понятная блок схема если здесь просто два условия if то выполнится первое условие у просто программа выведет что y=100 если же это цикл while то эта программа уравнивает числа то есть она прекращает свою работу когда числа равны и тогда y=25
1. Водонагреватель. Служит для подогрева проходящей через него воды.
Входы: электропитание, холодная вода.
Выходы: горячая вода.
2. Телевизор. Устройство для демонстрации изображения со звуковым сопровождением.
Входы: электропитание, сигналы от внешних устройств, управление от пульта.
<span>Выходы: звук изображение, сигналы на внешние устройства.</span>
Ответ:
function getSmallArrayItem(arr: array [0..9] of integer): integer;
begin
result := arr[0];
for i := 1 to (Length(arr) - 1) do
begin
if (array[i] < result) then
result := array(i);
end;
end;
Объяснение: