Паскаль ABC.Программирование!Помогите,пожалуйста!!! Из заданной строки получить...

0 голосов
48 просмотров

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


Информатика (87 баллов) | 48 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

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, кенгуру).
 строки (слон, , , кенгуру).

(194k баллов)