Вопрос по информатике:
Найти произведение чисел задонного четырехзначного числа n
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 04.04.2015 10:14
- Информатика
- remove_red_eye 3118
- thumb_up 37
Ответы и объяснения 1
Var n,pr:longint;
Begin
readln(n);
pr:=1;
while (n>0) do
begin
pr*=n mod 10;
n:=n div 10;
end;
writeln(pr);
End.
Вариант без цикла (только для четырехзначных чисел):
Var n,n1,n2,n3,n4:longint;
Begin
readln(n);
n1:=n div 1000;
n2:=n div 100 mod 10;
n3:=n div 10 mod 10;
n4:=n mod 10;
writeln(n1*n2*n3*n4);
End.
- 05.04.2015 10:57
- thumb_up 40
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.