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

@kristalgirl · Регистрация: 11.11.2010

Написать программу, которая находит произведение цифр заданного четырехзначного числа.

У меня возникли трудности с решением... Помогите пожалуйста))

@Puporev · 11.11.2010, 16:46

Pascal

1	p:=(a div 1000)(a div 100 mod 10)(a div 10 mod 10)*(a mod 10);

или в цикле

Pascal

p:=1;
while a>0 do
 begin
  p:=p*(a mod 10);
  a:=a div 10;
 end;

@kristalgirl 1 / 1 / 0 Регистрация: 11.11.2010 Сообщений: 9
		1
	Найти произведение цифр заданного четырехзначного числа 11.11.2010, 16:32. Показов 3267. Ответов 1 Метки нет (Все метки) Написать программу, которая находит произведение цифр заданного четырехзначного числа. У меня возникли трудности с решением... Помогите пожалуйста)) 0

	11.11.2010, 16:46

Решение