1:
var N,k,s:integer;
BEGIN
s:=0;
readln(N,k);
N:=abs(N);
while N>0 do begin
if (N mod 10=k) then
s:=s+1;
N:=N div 10;
end;
writeln(s);
end.
2:
var N:integer;
s:string;
BEGIN
readln(N);
s:=IntToStr(N);
if (s[1]=s[Length(s)]) then
writeln('ДА') else
writeln('НЕТ');
end.
3:
var N,p,s,k:integer;
BEGIN
readln(N);
p:=1;
s:=0;
k:=0;
while N>0 do begin
p:=p*(N mod 10);
s:=s+(N mod 10);
k:=k+1;
N:=N div 10;
end;
writeln('Количество цифр = ',k);
writeln('Сумма цифр = ',s);
writeln('Произведение цифр = ',p);
end.
x = list(map(int, input().split()))
arr = []
index = 0
res = 0
for i in range(x[0]):
arr.append(list(map(int, input().split(
for i in range(x[0]):
temp = 0
for y in range(x[1]):
temp+= arr[i][y]
if res == 0 or temp < res:
res = temp
index = i
print(*arr[index], sep=' ')
Надеюсь как-то