Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

Сколько раз встречается минимальная цифра в записи введённого с клавиатуры 4-х значного числа? Помогите плиз!!

Ответ оставил Гость

Program Pr1;
uses crt;
var mas:array[1..4] of integer;
stroka:string;
i,min,b:integer;
Begin
clrscr;
writeln(Vvedite chislo);
readln(stroka);
for i:=1 to 4 do val(stroka[i],mas[i],b);
min:=10;
b:=0;
for i:=1 to 4 do if mas[i]for i:=1 to 4 do if mas[i]=min then b:=b+1;
writeln(b);
end.