pos (символ позицию которого нужно определить, переменная в которой надо найти символ).
delete (переменная в которой нужно удалить что-то, позиция символа, количество символов для удаления начиная с заданной позиции).
у тебя есть переменная s с символами. pos определяет позицию 4, 56 оно пропустит. delete удаляет три символа начиная с позиции цифры 4 плюс два, потому что нам нужно пропустить 56.
var A: array[1..nmax] of integer; I, m, s: integer; Am, kon: text;
begin Clrscr; Assign(Am, 'Am.txt');
{раскоментировать для записи массива в файл} {Rewrite(Am); m := Random(nmax - 5) + 5; for i := 1 to m do Writeln(Am, Random(20)); Close(Am);}
{считывание данных из файла} Reset(Am); s := 0; m := 0; while not eof(Am) do begin m := m + 1; Readln(Am, A[m]); s := s + A[m]; end; Close(Am);
Assign(kon, 'kon.txt'); Rewrite(kon);
if s > 50 then Writeln('Сумма элементов массива более 50 и равна: s=', s) Else begin Writeln('Сумма элементов менее 50, вывод исходного массива'); for i := 1 to m do begin Writeln('A[', i, ']=', A[i], ' '); Writeln(kon, 'A[', i, ']=', A[i], ' '); end; end;
// PascalABC.Net 3.0, сборка 1066 var s,s1:string; i:integer; a:char; begin Write('Введите натуральное число любой длины :'); Readln(s); Write('Введите цифру, которую надо удалить: '); Readln(a); s1:=''; for i:=1 to Length(s) do if s[i]<>a then s1:=s1+s[i]; Writeln('Результат: ',s1) end.
Тестовый прогон: Введите натуральное число любой длины :3141592653589793 Введите цифру, которую надо удалить: 5 Результат: 3141926389793
2. Современное решение (так в школе почему-то не учат)
// PascalABC.Net 3.0, сборка 1066 begin var s:=ReadString('Введите натуральное число любой длины :'); var a:=ReadChar('Введите цифру, которую надо удалить: '); Write('Результат: ',s.Replace(a,'')); end.
pos (символ позицию которого нужно определить, переменная в которой надо найти символ).
delete (переменная в которой нужно удалить что-то, позиция символа, количество символов для удаления начиная с заданной позиции).
у тебя есть переменная s с символами. pos определяет позицию 4, 56 оно пропустит. delete удаляет три символа начиная с позиции цифры 4 плюс два, потому что нам нужно пропустить 56.