# какаята строка
str = "some str"
res = [a.upper() for a in str if 97 <= ord(a) <= 122]
print(' '.join(res))
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
namespace Global
{
class Program
{
static void Main(string[] args)
{
string first_x = Console.ReadLine();
int first_input = Convert.ToInt16(first_x);
int y = 1 - first_input;
y = y + 3 * Get_x();
y = y - 4 * Get_x();
Console.Write(y);
Console.Read();
}
static int Get_x()
{
string input = Console.ReadLine();
int x = Convert.ToInt16(input);
return x;
}
}
}
Объяснение:
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.