Ответы на вопрос:
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. // Конец программы
Популярно: Информатика
-
VitalЯ13.02.2023 00:14
-
hitechnic66985714.09.2021 17:28
-
Alievsergei07.11.2022 02:31
-
fj8f25.08.2020 12:25
-
саня45рг01.04.2021 09:07
-
ShiQualence03.10.2022 00:44
-
m21pekoy8bso16.01.2020 15:07
-
kuraflin66624.04.2021 10:40
-
HelpmeTT21.06.2021 05:27
-
ооардпт27.03.2020 05:56