Дана символьная строка, содержащая русские буквы, цифры и пробелы. Написать строку задом наперед, удалив из нее все цифры и пробелы
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.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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.