Вфайле fact.in записано натуральное число (количество цифр от 1 до 200 определить, является ли оно факториалом какого-либо числа. если да, в файл fact.out записать это число (факториалом которого является исходное), если нет, то записать в этот файл слово “no”.

роль:

1.  появление новых средств, накопление информации на машиночитаемых носителях.

2.  развитие средств связи, обеспечивающие доставку информации практически в любую точку, без ограничения времени и пространства.

3.  возможность автоматической обработки информации с компьютеров по данным алгоритмам (сортировка, классификация, представление в нужной форме).

 

область применения: везде. в частной жизни каждого человека, на всех производствах, в любой работе где необходима работа с информацией.

Const n=10; var a: array[1..n] of real; max,min: real; i: integer; begin randomize; for i: =1 to n do begin   a[i]: =10*random;   write(a[i]: 5: 1);   end; writeln; max: =a[1];   min: =a[1];   for i: =2 to n do   begin   if a[i]> max then max: =a[i];   if a[i]< min then min: =a[i];   end; writeln('max = ',max: 4: 1,'   min = ',min: 4: 1); end. пример:   3.1   7.4   3.9   2.4   3.1   7.5   1.1   4.1   7.3   9.9 max =   9.9   min =   1.1