Ответы на вопрос:
Для сред программирования 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 обь с притоком иртыш км, амур с аргунью км, лена км, енисей км
Популярно: Информатика
-
спишиru124.11.2020 05:50
-
Retyyyghiop01.11.2020 18:36
-
Rafaila11111.08.2020 08:15
-
Травка5819.04.2022 15:31
-
asilwa119020.03.2023 01:08
-
200516171820.02.2021 19:28
-
LollyMelor22.09.2020 18:53
-
лолитаfff10.07.2022 12:34
-
AliceWhite3184124.11.2020 09:01
-
inessaqwerty09.03.2022 08:04