1)
var
str : string;
begin
readln (str);
writeln (length (str) - pos (':', str));
end.
2)
var
str, s : string;
count, i : integer;
begin
readln (str);
s := copy (s, pos ('(', str) + 1, pos (')', str) - pos ('(', str) - 1);
count := 0;
for i := 1 to length (s) do
if s[i] = ' ' then inc (count);
writeln (count + 1);
end.
3)
var
str : string;
count : integer;
begin
readln (str);
count := 0;
while pos (',', str) > 0 do
begin
inc (count);
delete (str, pos (',', str), 1);
end;
writeln (str);
writeln (count);
end.
Сделано без проверки на соответствие условию.
#1
RawList = [int(input()) for _ in range(int(input('arr len: ')))]
NewList = [i**2 for i in RawList]
print(*NewList)
#2
RawList = [float(input()) for _ in range(int(input('arr len: ')))]
RoundedSum = round(sum(RawList))
print(RoundedSum)
#3
RawList = [int(input()) for _ in range(int(input('arr len: ')))]
print( len( list(filter(lambda p: p < 0, RawList) ) ) )
#4
RawList = [int(input()) for _ in range(int(input('arr len: ')))]
print(*[ abs(i) for i in RawList])
#5 (Я не знаю украинский алфавит, по этому сделаю для английского)
RawList = [input() for i in range(int(input('Arr Len: ')))]
vows = ['a','i','o','u','e'] #Список гласных
print( len( list( filter( lambda p: p in vows, RawList
Объяснение:
2)да
3)нет
4)нет