Question

Дано трёхзначное число.Найти: а) число единиц в нем; б) произведение его цифр

Answer 1

var

 n, c, a1, p: Integer;

begin

 Write ('Введите трехзначное число: ');

 ReadLn (n);

 if (n < 100) or (n > 999) then begin

   WriteLn ('Число не является трехзначным');

   Exit;

 end;

 a1 := 0;

 p := 1;

 while n > 0 do begin

   c := n mod 10;

   n := n div 10;

   if c = 1 then

     a1 := a1 + 1;

   p := p * c;

 end;

 WriteLn ('Количество единиц = ', a1);

 WriteLn ('Произведение цифр = ', p);

end.

Answer 2

Для нахождения числа единиц в трехзначном числе и произведения его цифр, следует выполнить следующие шаги:

Предположим, что дано трехзначное число "ABC", где A - сотни, B - десятки, C - единицы.

а) Число единиц в числе равно значению цифры C. В данном случае, число единиц равно C.

б) Произведение его цифр равно произведению A, B и C. То есть, A * B * C.

Пример: Пусть дано трехзначное число 456.

а) Число единиц равно 6.

б) Произведение его цифр равно 4 * 5 * 6 = 120.

Итак, для числа 456: а) Число единиц: 6 б) Произведение цифр: 120