program p1;
var n,k1:integer;
begin
k1:=0;
write ('Введите число ');
readln (n);
write ('Количество единиц в числе ',n,' равно ');
repeat
if n mod 10 = 1 then k1:=k1+1;
n:=n div 10;
until n=0;
write(k1);
end.
На python:
Объяснение:
a = input("Введите число: ")
b = 0
for i in list(a):
if i == '1':
b += 1
print("'1' - ", b)
program p1;
var n,k1:integer;
begin
k1:=0;
write ('Введите число ');
readln (n);
write ('Количество единиц в числе ',n,' равно ');
repeat
if n mod 10 = 1 then k1:=k1+1;
n:=n div 10;
until n=0;
write(k1);
end.
На python:
Объяснение:
a = input("Введите число: ")
b = 0
for i in list(a):
if i == '1':
b += 1
print("'1' - ", b)