URGENT!!! Se dă un număr natural m. Scrieți câte un program care va determina:
a. Produsul cifrelor lui;
b.Cea mai mică dintre cifrele lui;
Răspunsuri la întrebare
Vrei program separat pentru fiecare sau ambele intr-un program?
a)
#include <iostream>
using namespace std;
int main()
{
int n;
int p = 1;
cout<<"Numarul este: ";
cin>>n;
int cop = n;
while(n != 0)
{
p = p * (n%10);
n = n/10;
}
cout<<"Produsul cifrelor numarului "<<cop<<" este: "<<p;
}
b)
#include <iostream>
using namespace std;
int main()
{
int n;
int minim = 99999;
cout<<"Numarul este: ";
cin>>n;
int cop = n;
while(n != 0)
{
if(n%10 <= minim)
minim = n%10;
n = n/10;
}
cout<<"Cifra minima a numarului "<<cop<<" este: "<<minim;
}
PASCAL:
a)
program HelloWorld;
var
n : integer;
p : integer;
begin
p := 1;
readln(n);
while n <> 0 do
begin
p := p * (n mod 10);
n := n div 10;
end;
writeln(p);
end.
b)
//fpc 3.0.0
program HelloWorld;
var
n : integer;
min : integer;
begin
min := high(integer);
readln(n);
while n <> 0 do
begin
if (n mod 10) < min then
begin
min := n mod 10;
end;
n := n div 10;
end;
writeln(min);
end.
Pascal
Produsul cifrelor+suma:
var n, sum, prod: integer;
begin
write('Enter numar: ');
readln(n);
sum := 0;
prod := 1;
while n > 0 do begin
sum := sum + n mod 10;
prod := prod * (n mod 10);
n := n div 10
end;
writeln('Suma cifrelor = ', sum);
writeln('Produsul cifrelor = ', prod);
readln
end.
Cea mai mica cifra a unui numar:
var
min, i: integer;
begin
writeln('Enter numar: ');
readln(i);
min := i;
repeat
if i mod 10 < min then
min := i mod 10;
i := i div 10;
until i = 0;
writeln('Cifra cea mai mica:');
writeln(min);
end.