Дана символьная строка, содержащая русские буквы, цифры и пробелы. Написать строку задом наперед, удалив из нее все цифры и пробелы
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
