СРОЧНО ПОМОГИТЕ!!!!!!! найти минимальную цифру числа и посчитать сколько раз она...

Question

СРОЧНО ПОМОГИТЕ!!!!!!! найти минимальную цифру числа и посчитать сколько раз она встречается в числе ПАСКАЛЬ

Answer 1

Ответ:

Объяснение:

var number : String;

   i, min, count : Integer;

begin

number := '1234511';

min := ord(number[1]);

for i := 2 to Length(number) do if ord(number[i]) < min then min := ord(number[i]);

count := 0;

for i := 1 to Length(number) do if ord(number[i]) = min then count := count + 1;

writeln('min = ' , min);

writeln('repeat = ', count);

end.