uses crt;
var s:string;
i,k:byte;
begin
repeat
writeln('Введите строку из 20 символов');
read(s);
until length(s)=20;
k:=0;
writeln('Строчные латинские буквы, входящие в строку');
for i:=1 to length(s) do
if s[i] in ['a'..'z'] then
begin
write(s[i]);
k:=1;
end;
if k=0 then write('Строчных латинских букв нет')
end.
uses crt;
var s:string;
i,k:byte;
begin
repeat
writeln('Введите строку из 20 символов');
read(s);
until length(s)=20;
k:=0;
writeln('Замены макс на мин и max на min');
for i:=length(s)downto 1 do
if copy(s,i,4)='макс' then
begin
delete(s,i,4);
insert('мин',s,i);
k:=k+1;
end
else if copy(s,i,3)='max' then
begin
delete(s,i,3);
insert('min',s,i);
k:=k+1;
end;
writeln(s);
if k=0 then write('Замен нет')
else write('Количество замен=',k)
end.
# какаята строка
str = "some str"
res = [a.upper() for a in str if 97 <= ord(a) <= 122]
print(' '.join(res))
