Произведение цифр.

[Водонька]

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

[whatever]

поторопился, код не верный

[Водонька]

Все работает отлично. Спасибо!

[gaw4]

   while n>0 do
      begin
      p:=p* (n mod 10);
         n:=n div 10;
      end;
Writeln('n=',n,'    p=',p);

[gaw4]

опоздал

[whatever]

Грубо, дешего, сердито:

var
  n,mult,i:integer;
begin
  writeln('Enter n:');
  readln(n);
  mult:=n div 1000;
  i:=n mod 1000;
  mult:=mult* (i div 100);
  i:=i mod 100;
  mult:=mult* (i div 10);
  i:=i mod 10;
  mult:=mult*i;
  writeln(mult);
  readln
end.

Из-за ограничений (четырехзначное, натуральное) писать цикл не вижу смысла.

P.S. я сразу скобочки расставить забыл, будут косяки. Сейчас код исправленый

[rrrFer]

#include <iostream>
#include <sstream>
int main( ) {
	std ::stringstream 
			sstr;
	char	str[ 25 ];
	int		s, k;
	
	std ::cin >> str;
	sstr << str;
	
	s = 0;
	do {
		k = sstr .get();
		if( sstr .eof( ) )
			break;
		if( k < '0' || k > '9' ) {
			std ::cout << "error" << std ::endl;
			break;
		}
		s *= k - '0';
	} while( 1 );

	std ::cout << s;
	
	std ::cin .get(), std ::cin .get();
	return 0;
}