Да возможно, на многих устройствах есть слоты для карт памяти, поместив в которые карточку нужного объема можно значительно увеличить первоначальный объем памяти, на который поскупился сам производитель.Вообще, надо понимать, не все устройства позволяют перемещать части установленного приложения на карту памяти, но для тех, которые это умеют, процесс занимает всего несколько незамысловатых движений. Большинство флагманов отказались от поддержки этой функции, а поэтому она чаще встречается в устройствах среднего и низкого уровней, но чаще всего это устройства, в которых предусмотрена возможность использовать дополнительное хранилище.
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. // Конец программы
