n=str(input())
i=0
e=0
b=["1","2","3","4","5","6","7","8","9","0"]
while(1==1):
if(n[i:i+1] in b):
e=e+1
else:
break
i=i+1
print(e)
Объяснение:
1)Створюємо змінну, значення якої буде число n
2)Створюємо змінну і, щоб цикл працював, і змінну е, значенням якої буде кількість цифр в числі
3)Створюємо масив, елементи якого є всі цифри.
4) Створюємо цикл, робимо так , щоб він працював безкінечно умовою 1==1, адже ми не знаємо наскільки велике число введе користувач.
5) В циклі робимо умову, яка підраховує кількість цифр, і зупиняє цикл, коли цифр більше немає, тобто цикл опрацював усе число.
6) в кінці циклу пишемо і=і+1, щоб цикл поступово опрацьовував усі цифри з числа.
7) Виводимо кількість цифр
const n=5;
var a:array [1..n,1..n] of integer;
i,j,k,max:integer;
begin
for i:= 1 to n do
for j:=1 to n do
a[i,j]:=random(21)-10;
write(a[i,j]:5)
end;
writeln;
max:=0;
k:=0;
for j:=1 to n do if a[i,j]<0 then k:=k+1;
if k>max then max:=k
if max=0 then writeln ('Нет строк с отрицательными элементами')
else
if k=max then writeln ('Строка, в которой находится наибольшее количество отрицательных элементов ',i)
end
end.
n=str(input())
i=0
e=0
b=["1","2","3","4","5","6","7","8","9","0"]
while(1==1):
if(n[i:i+1] in b):
e=e+1
else:
break
i=i+1
print(e)
Объяснение:
1)Створюємо змінну, значення якої буде число n
2)Створюємо змінну і, щоб цикл працював, і змінну е, значенням якої буде кількість цифр в числі
3)Створюємо масив, елементи якого є всі цифри.
4) Створюємо цикл, робимо так , щоб він працював безкінечно умовою 1==1, адже ми не знаємо наскільки велике число введе користувач.
5) В циклі робимо умову, яка підраховує кількість цифр, і зупиняє цикл, коли цифр більше немає, тобто цикл опрацював усе число.
6) в кінці циклу пишемо і=і+1, щоб цикл поступово опрацьовував усі цифри з числа.
7) Виводимо кількість цифр
const n=5;
var a:array [1..n,1..n] of integer;
i,j,k,max:integer;
begin
for i:= 1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(21)-10;
write(a[i,j]:5)
end;
writeln;
end;
max:=0;
for i:= 1 to n do
begin
k:=0;
for j:=1 to n do if a[i,j]<0 then k:=k+1;
if k>max then max:=k
end;
if max=0 then writeln ('Нет строк с отрицательными элементами')
else
begin
for i:= 1 to n do
begin
k:=0;
for j:=1 to n do if a[i,j]<0 then k:=k+1;
if k=max then writeln ('Строка, в которой находится наибольшее количество отрицательных элементов ',i)
end
end
end.