Два задания по информатике, написать программы решения примеров на Паскаль.

var

  a, b, n, i, j, t: integer;

  s, sn: string;

begin

    write ('введите начало отрезка: ');

    readln (a);

    write ('введите окончание отрезка: ');

    readln (b);

    n : = 0;

    for i : = a to b do begin

      s : = inttostr (i);

t : = 1;

for j : = 1 to length (s) do

        t : = t * strtoint (s[j]);

      if t > n then begin

        sn : = s;

        n : = t;

      end;

    end;

    writeln ('число с наибольшим произведением цифр: ' + sn);

end;

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