Pascal для новичка даю 44!!!!!!Дано натуральное число. Определите, сколько раз в нем...

Question

Pascal для новичка даю 44!!!!!!Дано натуральное число. Определите, сколько раз в нем встречается минимальная цифра.Формат входных данныхВ программу вводится одно целое число x (1≤x≤231−1).Формат выходных данныхПрограмма должна вывести количество минимальных цифр в этом числе.

Answer 1

Ответ:

Объяснение:

Алгоритм:

1) определяем первую, вторую и третью цифру

2) ищем минимальную цифру числа

3) считаем их количество

var a, sotni, desatki, edinicy, min_number, n: integer;

begin

read(a);

sotni := a div 100;

desatki := a div 10 mod 10;

edinicy := a mod 10

if sotni < desatki then

begin

if desatki < edinicy then min_number := sotni

else

if sotni < edinicy then min_number := sotni else min_number := edinicy

end

else

if desatki > edinicy then min_number := edinicy

else

min_number := desatki;

n := 0;

if min_number = desatki then n += 1;

if min_number = sotni then n += 1;

if min_number = edinicy then n += 1;

print(n)

end.

Теперь рассказываю, почему надо учить питон. Та же программа:

number = list(map(int, input().split()))

print(number.count(min(number)))