Удаление цифр из записи исходного числа
Добавлено: 14 май 2009, 19:47
Дано натуральное число n. Выбросить из записи исходного числа цифры 0 и 5, оставив прежним порядок остальных цифр. Например, из числа 59015509 должно получиться 919.
Проект прикреплен ниже архивом, думаю скомпилируете сами.
[syntax='Delphi']
var
s:string;
begin
S:=Edit1.Text;
while pos('5',S)>0 do
delete(S,pos('5',S),1);
while pos('0',S)>0 do
delete(S,pos('0',S),1);
Edit2.Text:=S;
[/syntax]