• 1)используя справочник записать значение процедур delete и insert .
    2)написать программу позволяющею разделить на отдельные цифры число любой длины

Ответы 1

  • 1)procedure Insert(source: string; var s: string; index: integer);         Вставляет подстроку source в строку s с позиции indexprocedure Delete(var s: string; index, count: integer);         Удаляет из строки s count символов с позиции index2)var s:string; i,n,code:integer;beginwrite('Введите длинное число:');readln(s);for i:=1 to length(s) do begin val(s[i],n,code); if code=0 then writeln(n); end;end.Пример:Введите длинное число:34568102853456810285Если не требуется выполнять арифметических действий с цифрами, то можно так:var s:string; i:integer;beginwrite('Введите длинное число:');readln(s);for i:=1 to length(s) do writeln(s[i]);end.
    • Автор:

      clicker
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years