Ответы на вопрос:
program comp;
var
number, composition, last_number: integer;
begin
composition := 1;
read(number);
while (number > 0) do
begin
last_number := number mod 10;
composition := composition * last_number;
number := number div 10;
end;
write(composition);
end.
Объяснение:
program comp; // Название программы
var
number, composition, last_number: integer; // Создание целочисланных переменных:
number - число, которое вводится с клавиатуры;composition - переменная для хранения произведения цифр числа;last_number - переменная, которая будет хранить цифры числа.begin // Начало программы
composition := 1; // Переменной composition присваиваем значение 1
read(number); // Считываем число с клавиатуры
while (number > 0) do // Пока переменная number > 0 выполняем
begin // Начало цикла
last_number := number mod 10; // Берем последнюю цифру от числа (остаток от деления на 10)
composition := composition * last_number; // В переменную composition записываем произведение переменной composition и переменной last_number
number := number div 10; // Отделяем последнюю цифру от числа (целочисленное деление на 10)
end; // Конец цикла
write(composition); // Вывод значения переменной composition
end. // Конец программы
Популярно: Информатика
-
nurbo5555555555125.10.2021 03:13
-
Stasuyksuper0608.02.2021 13:06
-
Lissa00003.01.2020 14:11
-
Sidor20928.12.2020 01:07
-
bokovanatap08wlj01.05.2021 07:40
-
nezandenzar03.09.2020 13:10
-
ЯLOVEспорт03.04.2020 16:39
-
rootiopa222.09.2022 14:42
-
millkawow04.03.2023 18:24
-
vasilinachernova11.09.2022 16:17