Для сред программирования DOS (например, Turbo Pascal) удалите фигурные скобки, для сред Windows (например, PascalABC.Net) строки в фигурных скобках удалите полностью. {uses Crt;} const n=80; digits=['0','1','2','3','4','5','6','7','8','9']; var s:string[80]; i:integer; begin {ClrScr;} Writeln('Введите текст (учитываются только 80 первых символов)'); Readln(s); for i:=1 to n do if s[i] in digits then Write(s[i]); Writeln; for i:=1 to n do if not(s[i] in digits) then Write(s[i]); Writeln; {ReadKey} end.
Тестовое решение: Введите текст (учитываются только 80 первых символов) Обь с притоком Иртыш 5410км, Амур с Аргунью 4440км, Лена 4400км, Енисей 4102км 5410444044004102 Обь с притоком Иртыш км, Амур с Аргунью км, Лена км, Енисей км
Тут, во-первых, не понятно о каких именно таблицах идет речь
Для таблиц баз данных: 1) Строка называется записью и может удаляться. Столбец называется колонка и может удаляться. Ячейка (поле) по сути сама по себе удаляться не может, но может быть очищена от данных или содержать данные по умолчанию 2) Строка(несколько вариантов), целое(несколько вариант), с плавающей запятой (несколько вариантов), логического типа, дата, дата-время, время и двоичные данные или blob
Для электронных таблиц типа Excel: 1) Столбцы, строки и ячейки могут быть удалены. При удалении отдельной ячейки выбирается, как именно должны быть смещены данные 2) строка, ссылка, гиперссылка, целое число, дробное число, проценты, денежные единицы, дата, дата-время, время, формула. Так же ячейка может содержать дополнительные данные типа личного имени, комментария, форматирование, цвет фона и тд
{uses Crt;}
const
n=80;
digits=['0','1','2','3','4','5','6','7','8','9'];
var
s:string[80];
i:integer;
begin
{ClrScr;}
Writeln('Введите текст (учитываются только 80 первых символов)');
Readln(s);
for i:=1 to n do
if s[i] in digits then Write(s[i]);
Writeln;
for i:=1 to n do
if not(s[i] in digits) then Write(s[i]);
Writeln;
{ReadKey}
end.
Тестовое решение:
Введите текст (учитываются только 80 первых символов)
Обь с притоком Иртыш 5410км, Амур с Аргунью 4440км, Лена 4400км, Енисей 4102км
5410444044004102
Обь с притоком Иртыш км, Амур с Аргунью км, Лена км, Енисей км