var N:longint; min:longint; count: byte; tmp, z: longint; procedure MinAndCount(var a: longint); begin readln(N); z := N; count := 0; min:=10; while N<>0 do begin if n mod 10 < min then min := n mod 10; n := n div 10; end; tmp := min; while z<>0 do begin if (z mod 10)=tmp then inc(count); z:=z div 10; end; writeln('Самая маленькая цифра = ',min, ' встречается = ', count, ' раз(а).'); readln; end;
begin write('Введите число: '); MinAndCount(N); end.
Наименьший логический элемент двумерного цифрового изображения в растровой графике, или [физический] элемент матрицы дисплеев, формирующих изображение. Пиксель представляет собой неделимый объект прямоугольной или круглой формы, характеризуемый определённым цветом Растровое компьютерное изображение состоит из пикселей, расположенных по строкам и столбцам. Также пикселем ошибочно называют элемент светочувствительной матрицы Чем больше пикселей на единицу площади содержит изображение, тем более оно детально. Максимальная детализация растрового изображения задаётся при его создании и не может быть увеличена.
Одним из ключевых понятий информатики является информация. Теория информации, как раздел математики, сформировалась во второй половине XX в. Толчок к зарождению дали попытки нахождения оптимальных решений практических технических задач в области кодирования и передачи информации. Пионерами теории информации по праву считают Клода Шеннона (США), А.Н. Колмогорова (СССР), Р. Хартли (США).Клод Шеннон, автор теории информации, предложил информацией считать снятую неопределённость наших знаний о чем-то.Шеннон впервые ввёл такую трактовку в теории связи. Позднее она нашла применение во всех областях науки, где играет роль передача информации в самом широком смысле этого слова, в частности, в математической теории информации, большую роль в становлении которой сыграл А.Н. Колмогоров.Существует несколько подходов к определению понятия "информация".
-----------------------------------------------------
var
N:longint;
min:longint;
count: byte;
tmp, z: longint;
procedure MinAndCount(var a: longint);
begin
readln(N);
z := N;
count := 0;
min:=10;
while N<>0 do
begin
if n mod 10 < min then
min := n mod 10;
n := n div 10;
end;
tmp := min;
while z<>0 do
begin
if (z mod 10)=tmp then inc(count);
z:=z div 10;
end;
writeln('Самая маленькая цифра = ',min, ' встречается = ', count, ' раз(а).');
readln;
end;
begin
write('Введите число: ');
MinAndCount(N);
end.