мне. Это информатика. Вычислите значения фунци

Информационные технологии всё больше проникают в нашу жизнь . В интернете производиться и используется различные виды информации как положительной так и отрицательной . Создание информационных технологий безусловно повышает долю умственного труда , растёт спрос на знания и информацию . Информатизация общества – процесс создания оптимальных условий для удовлетворения информационных потребностей людей .

Плюсы : Уменьшается доля физического труда и сокращается объем рутинного умственного труда. Нам уже не приходиться подолгу задерживаться в библиотеках ) .

Огромный запас полезной информации .

Большие удобства .

Минусы : опасность большого влияния на общество со стороны средств массовой информации .

столкновение с виртуальной реальностью, имеющее различные психологические и психические последствия для молодежи .

проблема отбора качественной и достоверной информации .

информационные войны .

Моё мнение - проникновение в нашу жизнь информационных технологий приведёт к улучшение жизни и удобствам в плане поиска нужной информации . Всё в руках пользователя интернетом и решать ему как пользоваться этими технологиями .

Объяснение:

Pascal ABC. Процедура.

-----------------------------------------------------

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.