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

Задача: 

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

Алгоритм решения задачи: 
  • 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

Комментарии

Меньшее количество строк

var
	a, b, c: byte;
begin
	randomize;
	a:=random(8)+1;
	b:=random(9);
	c:=random(9);
	writeln(a, b, c);
	writeln('Сумма: ',a+b+c);
	writeln('Произведение: ',a*b*c);
end.

//Всё очевидное - просто.

но ведь по условию задачи

Но ведь по условию задачи, дается трехзначное число, а вы нашли суму и произведение трех случайных одно-значных чисел

randomize;

Зачем нужно писать "randomize"?

Чтобы при каждом выполнении

Чтобы при каждом выполнении программы числа были разными. Попробуйте не писать и сравните.

)) это хитрость.

)) это хитрость.