Нужно сделать в паскале, пусть дан текст из 80 . напечатайте сначала все цифры, входящие в него, а затем все остальные , сохраняя при этом взаимное расположение в каждой из этих двух групп.

295

488

Посмотреть ответы 2

Ответы на вопрос:

Manya081505

Информатика

4,7(2 оценок)

Для сред программирования 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 обь с притоком иртыш км, амур с аргунью км, лена км, енисей км