Дана символьная строка, содержащая русские буквы, цифры и пробелы. Написать строку задом наперед, удалив из нее все цифры и пробелы
Дана символьная строка, содержащая русские буквы, цифры и пробелы. Написать строку задом наперед, удалив из нее все цифры и пробелы
Гость
Ответ(ы) на вопрос:
Гостьuses crt;
var
i: integer;
s,z: string;
begin
clrscr;
write('Введи текст: '); read(s);
z:= ' ';
for i:=1 to Length(s) do
if (not ((s[i]=' ') or (s[i] in ['0'..'9'])))
then z:= s[i]+z;
writeln('Новый текст: ',z);
end.
Не нашли ответ?
Похожие вопросы