Вопрос по информатике:
Pascal!Даю 30 балов!
Написать программу,помогите
Дано 4-х значное число<вычислить произведение его чисел
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 05.03.2017 22:12
- Информатика
- remove_red_eye 18447
- thumb_up 19
Ответы и объяснения 2
Var n,m: integer;
begin
write('число: '); readln(n);
m:=1;
repeat
m:=m*(n mod 10);
n:=n div 10;
until n=0;
writeln('произведение цифр: ',m);
end.
- 06.03.2017 18:34
- thumb_up 1
Наверное имелось ввиду произведение его цифр, тогда может получиться так:
1. Решение без циклов
//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
var n,x,p: integer;//n1-кол-во четных, n2-нечетных
begin
read(n);
p:=1;
//получаем остаток от деления (единицы) и умножаем на него p
x:=n mod 10; p:=p*x;
//отбрасываем единицы
n:=n div 10;
//получаем остаток от деления (десятки) и умножаем на него p
x:=n mod 10; p:=p*x;
//отбрасываем десятки
n:=n div 10;
//получаем остаток от деления (сотни) и умножаем на него p
x:=n mod 10; p:=p*x;
//отбрасываем сотни
n:=n div 10;
//получаем остаток от деления (тысячи) и умножаем на него p
x:=n mod 10; p:=p*x;
//отбрасываем тысячи
n:=n div 10;
///получаем остаток от деления (сотни тысяч) и умножаем на него p
x:=n mod 10; p:=p*x;
// Теперь в p находится произведение единицы*сотни*тысячи*сотни тысяч
writeln('Произведение цифр ',p);
end.
2. Решение с циклом
//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
var n,x,p: integer;
begin
readln(n);
p:=1;
while n>0 do begin
x:=n mod 10; p:=p*x;
n:=n div 10;
end;
writeln('Произведение цифр ',p);
end.
- 07.03.2017 20:36
- thumb_up 10
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.