Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
Помогите пожалуйста, срочно!!!
Помогите пожалуйста решить две задачки:
1.Работа со строками:Из заданной строки удалить все цифры и переписать их в другую строку.
2.Дано натуральное число n. Получить все его натуральные делители.
1 | Автор: rocksy | 2014-01-05, 16:08   |  Репутация: [ + 0 ]
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
2 | Автор: Berestovskiy | 2014-01-07, 10:57   |  Репутация: [ + 211 ]
***, опять не отображает

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
3 | Автор: Berestovskiy | 2014-01-07, 10:58   |  Репутация: [ + 211 ]
  • Страница 1 из 1
  • 1
Поиск: