#1
lst = [int(i) for i in input().split()]
print(len(set(lst)))
#2
import statistics
lst = [int(i) for i in input().split()]
print(statistics.mode(lst))
Объяснение:
#1
set() не изменяет состояния списка, передаваемого аргументом. Возвращает объект типа set, представляющий собой множество уникальных объектов, входивших в изначальный список. Длина этого множества и есть кол-во уникальных элементов в изначальном списке
#2
Модуль statistics является встроенным модулем Python (предоставляется пользователю "из коробки", без нужды качать что либо), и предоставляет набор функций и классов для работы со статистикой. Функция statistics.mode([iterable]) возвращает самый часто встречающийся элемент переданного ей списка (или любого другого итерируемого объекта)
var i,j,n,k,k1,k2,k3: integer; bb: boolean;
a: array of integer;
begin
write('N = ');
readln(n);
if ((n mod 3 = 0) and (n<>0)) then begin
write('K1 = ');
readln(k1);
write('K2 = ');
readln(k2);
write('K3 = ');
readln(k3);
setlength(a,n);
for i:=0 to n-1 do begin
write('Заполним номер ',i+1,' -> ');
readln(a[i]);
end;
i:=0;
while (i<n) do
begin
a[i]:=k1-a[i];
a[i+1]:=k2-a[i+1];
a[i+2]:=k3-a[i+2];
inc(i,3);
end;
write('K = ');
readln(k);
for i:=0 to n-2 do
if (a[i]+a[i+1]>=k) then begin write('В комнатах ',i+1,' и ',i+2,' есть ',a[i]+a[i+1],' свободных мест'); bb:= true; end;
if (bb=false) then writeln(0);
end else writeln('Введите число кратное 3 и неравное 0');
readln;
end.
PascalВыделить код
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
uses crt;
const n=10;
var i,j,k:integer; max,min:integer; S,buf:real; f:text;
const x:array[1..n] of integer=(5,-11,7,19,-16,3,-8,4,10,2);
begin
assign(f,'array.pas');
rewrite (f);
writeln (f);
writeln('массив 5,-11,7,19,-16,3,-8,4,10,2');
min:=0;
max:=0;
writeln;
writeln;
For i:=1 to 9 do
if x[i] mod 2 = -1 then if x[i]<x[i+1] then begin
min:=min+x[i];
write ('минимальное нечетное x[',i,']=' ,x[i]);
end;
writeln; {сумма элементов массива между минимальным нечетным и максимальным четным}
For i:=1 to 9 do
if x[i] mod 2 = 0 then if x[i]>x[i+1] then begin
max:=max+x[i];
write ('максимальное четное x[',i,']=' ,x[i]);
end;
writeln;
writeln;
S:=0;
For i:=2 to 9 do
begin
S:=S+x[i];
writeln('сумма элементов между min нечетным и max четным = ',S:4:0);
end;
writeln;
writeln;
{поменять местами максимальное четное с минимальным нечетным}
end.