Question

Из натурального трехзначного числа удалить заданную цифру. Число и цифру вводить с клавиатуры.
паскаль
50 баллов

Answer 1

var

 ch:string;

 c:char;

  position:integer;

begin

 Writeln('Введите трехзначное число: ');

  readln(ch);

 Writeln('Введите цифру: ');

 readln(c);

 if pos(c,ch) >0 then

  position:=pos(c,ch);

 delete(ch,position,1);

 writeln(ch);

end.