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

Задача

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

Решение

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

  • 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

Комментарии