Задача 1:

    Сгенерировать случайное число, вывести на экран это число, а также сумму и произведение его цифр.
    Алгоритм решения задачи:
    • random(900) генерирует случайное число от 0 до 899. Если прибавить к нему 100, то получится диапазон от 100 до 999 включительно, т. е. охватывает все трехзначные числа.
    • Чтобы извлечь из числа цифру сотен надо его разделить нацело на 100.
    • Для получения цифры десяток можно сначала разделить нацело на 10, а затем найти остаток от деления на 10.
    • Единицы извлекаются путем нахождения остатка от деления числа на 10.

    Программа на языке Паскаль: 

    var
     n: integer;
     a,b,c: byte;
    begin
     randomize;
     n := random(900) + 100;
     writeln(n);
     a := n div 100;
     b := n div 10 mod 10;
     c := n mod 10;
     writeln('Сумма: ',a+b+c);
     writeln('Произведение: ',a*b*c);
    end.

    Пример выполнения программы:

    536
    Сумма: 14
    Произведение: 90