Ответы на вопрос:
n=int(
k=0
s=0
while n> 0 :
if n%2==0 :
k+=1
elif n%2 ==1 :
s+=1
print(s)
print(k)
Var a,k: int64; begin k: =1; writeln('vvedite chislo'); read(a); while a> 0 do begin a: =a mod 10; k: =k+1; end; write('v chisle',k,' tsifr'); end.
Популярно: Информатика
-
123julia456f67801.09.2022 10:07
-
Olzhas288929.01.2021 06:46
-
QwErtY31445566717.06.2021 17:02
-
kskskdksks07.12.2022 16:56
-
gasha123456789028.06.2021 09:11
-
Айдана55л08.02.2022 09:46
-
NastiaZaic30.07.2022 06:37
-
Theknopa44406.01.2021 01:46
-
STASік25.03.2022 10:10
-
nadyasvetlakov25.04.2020 14:16