Ну и можешь добавить writeln(a); если вывести надо
Удалить всмысле на ноль заменить? если да, то:
if {name array}[2] <0 then
{name array}:=0;
Только что созданный текстовый файл получил расширение txt
В основу работы компьютеров положен программный принцип управления, состоящий в том, что компьютер выполняет действия по заранее заданной программе. Этот принцип обеспечивает универсальность использования компьютера: в определенный момент времени решается задача соответственно выбранной программе. После ее завершения в память <span>загружается другая программа и т.д.</span>
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.
Пример:
Введите слово:
электрификация
электрифаця