Из данного натурального числа удалить все цифры A

@black230 · Регистрация: 24.12.2014

Author24 — интернет-сервис помощи студентам

Из данного натурального числа удалить все цифры A (А вводится с клавиатуры)

т.е вводим например число 74715, затем вводим число А=7 и получаем число 415.

Помогите пожалуйста ,заранее спасибо!

@CodeR · 26.12.2014, 06:30

Pascal

Var s:string;
    a:char;
Begin
    write('Натуральное число: ');readln(s);
    write('Цифра A: ');readln(a);
    While Pos(a,s)>0 do
     Delete(s,Pos(a,s),1);
    writeln('Полученное число: ',s);
    readln;
End.

@APALoff · 26.12.2014, 16:19

Тут могут "придраться", что вводится строка, а не натуральное число.
Лучше добавить использование VAL или работать только с числовыми переменными.

Pascal

Function DelNum(N : Longint; a : Byte) : Longint;
Begin
  If N>0 then
    If (N mod 10)=a then DelNum:=DelNum(N div 10,a)
    else DelNum:=(N mod 10)+10*DelNum(N div 10,a)
  else DelNum:=0;
end;
 
Begin
  Writeln(DelNum(74715,7));
end.

@black230 0 / 0 / 0 Регистрация: 24.12.2014 Сообщений: 6
		1
	Из данного натурального числа удалить все цифры A 25.12.2014, 19:33. Показов 1799. Ответов 2 Метки нет (Все метки) Из данного натурального числа удалить все цифры A (А вводится с клавиатуры) т.е вводим например число 74715, затем вводим число А=7 и получаем число 415. Помогите пожалуйста ,заранее спасибо! 0

	26.12.2014, 16:19

Из данного натурального числа удалить все цифры A

Решение