Найти произведение цифр заданного четырехзначного числа

@Иноуэ Орихимэ · Регистрация: 09.09.2009

Author24 — интернет-сервис помощи студентам

Экзаменационный билет № 1
2. Составить программу для вычисления суммы: 1!+2!+3!+…+n! (n<=15)
Экзаменационный билет № 2
1.Составьте алгоритм нахождения произведения цифр заданного четырехзначного числа.
2.Дано натуральное число N. Вычислить произведение первых N сомножителей

Буду очень благодарна, если поможете.

@Inadequate · 16.12.2009, 07:11

Сообщение от Иноуэ Орихимэ

Составьте алгоритм нахождения произведения цифр заданного четырехзначного числа

Pascal

var
  n,temp,p:integer;
begin
  readln(n);
  temp:=n;
  p:=1;
  while temp<>0 do
  begin
    p:=p*(temp mod 10);
    temp:=temp div 10
  end;
  if n<>0 then
    writeln('Ðåçóëüòàò: ',p)
end.

@Иноуэ Орихимэ 0 / 0 / 0 Регистрация: 09.09.2009 Сообщений: 5
		1
	Найти произведение цифр заданного четырехзначного числа 16.12.2009, 05:35. Показов 7284. Ответов 1 Метки нет (Все метки) Экзаменационный билет № 1 2. Составить программу для вычисления суммы: 1!+2!+3!+…+n! (n<=15) Экзаменационный билет № 2 1.Составьте алгоритм нахождения произведения цифр заданного четырехзначного числа. 2.Дано натуральное число N. Вычислить произведение первых N сомножителей Буду очень благодарна, если поможете. 0

	16.12.2009, 07:11

Найти произведение цифр заданного четырехзначного числа

Решение