Помогите пожалуйста решить две задачки:
1.Работа со строками:Из заданной строки удалить все цифры и переписать их в другую строку.
2.Дано натуральное число n. Получить все его натуральные делители.
|
|
|
|
1.
var
first,second,third:string;
i:byte;
begin
readln(first);
third:=copy(first,1,length(first));
for i:=1 to length(first) do
if (ord(first) >= 48) and (ord(first) <= 57) then begin
second:=second+first;
delete(third, pos(first, third),1);
end;
writeln(third);
writeln(second);
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
***, опять не отображает
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
