Сумма и произведение цифр случайного трехзначного числа | Язык Паскаль
Pascal. Основы программирования Сложные Средние Простые задачи

Сумма и произведение цифр случайного трехзначного числа

Сгенерировать случайное трехзначное число. Вывести на экран само число, сумму и произведение его цифр.

Алгоритм решения задачи:

  1. Вызов функции random с фактическим параметром 900 вернет случайное число от 0 до 899 включительно.
  2. Если к этому числу прибавить 100, то получится случайное число от 100 до 999 включительно. В этот диапазон входят все существующие трехзначные числа.
  3. Выведем полученное трехзначное число на экран.
     
  4. Чтобы извлечь из числа цифру сотен, то есть первую (старшую) цифру числа, надо число разделить нацело на 100. Полученную цифру свяжем с переменной a.
  5. Чтобы получить среднюю цифру трехзначного числа, его сначала надо разделить нацело на 10. Тем самым мы избавимся от последней цифры числа. Потом надо найти остаток от деления на 10. В результате получим последнюю цифру двухзначного числа, которая была средней в исходном трехзначном. Полученную цифру присвоим переменной b.
  6. Единицы (третья цифра, младший разряд) извлекаются путем нахождения остатка от деления числа на 10. Эту цифру присвоим переменной c.
     
  7. Найдем сумму цифр числа, сложив значения переменных a, b и c. Выведем сумму на экран.
  8. Найдем произведение цифр числа, перемножив значения a, b и c. Выведем произведение на экран.

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

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