Паскаль abc. из заданной строки получить новую,удалив все буквы латинского алфавита.

242

487

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

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

nastyaasdfg

Информатика

4,6(38 оценок)

Var st1,st2: string; i: integer; begin writeln('введите строку: '); readln(st1); st2: =''; for i: =1 to length(st1) do if not(st1[i] in ['a'..'z','a'..'z']) then st2: =st2+st1[i]; writeln(st2); end. пример: введите строку: primer строки (слон, begin, end, кенгуру). строки (слон, , , кенгуру).