//Pascal //Для натуральных чисел var a, s, p:integer;
begin write('Введите число = '); readln(a); s := 0; p := 1; while (a<>0) do begin p := p * (a mod 10); s := s + (a mod 10); a := a div 10; end; writeln( 'Сумма цифр числа = ', s); writeln( 'Произведение цифр числа = ', p); end.
//Если число отрицательное var s, p, a, b, c: integer; f: boolean; begin write('Введите число = '); readln(a); if a < 0 then f := true; a := abs(a); b := a mod 10; a := a div 10; c := a mod 10; a := a div 10; if f = true then begin p := (-a) * b * c; s := -a + b + c; end else begin s := a + b + c; p := a * b * c; end; writeln('Сумма цифр числа = ', s); writeln('Произведение цифр числа = ', p); end.
using namespace std;
int main(){
setlocale( LC_ALL, "Russian" );
float M,K,S;
int dp;
cout << "Какие действие вы будете выполнять:" << endl;
cout << "1. Сложение. " << endl;
cout << "2. Отнимание." << endl;
cout << "3. Умножение." << endl;
cout << "Введите число для выбора действия" << endl;
cin >> dp; switch(dp)
{
case 1:
cout << "Число M = ";
cin >>M;
cout <<"Число K = ";
cin >> K;
S = M + K;
cout << "\n"<<M<<"+"<<K<<"="<<S<<endl;
break;
case 2:
cout <<"Число M = ";
cin >> M;
cout <<"Число K = ";
cin >> K;
S = M - K;
cout <<"\n" << M <<"-"<<K<<"="<<S<<endl;
break;
case 3:
cout <<"Число M = ";
cin >> M;
cout <<"Число K = ";
cin >> K;
S = M *K;
cout <<"\n"<<M<<"*"<<K<<"="<<S<<endl;
break;
}
system("pause");
return 0;
}
//Для натуральных чисел
var a, s, p:integer;
begin
write('Введите число = ');
readln(a);
s := 0;
p := 1;
while (a<>0) do
begin
p := p * (a mod 10);
s := s + (a mod 10);
a := a div 10;
end;
writeln( 'Сумма цифр числа = ', s);
writeln( 'Произведение цифр числа = ', p);
end.
//Если число отрицательное
var
s, p, a, b, c: integer;
f: boolean;
begin
write('Введите число = ');
readln(a);
if a < 0 then
f := true;
a := abs(a);
b := a mod 10;
a := a div 10;
c := a mod 10;
a := a div 10;
if f = true then
begin
p := (-a) * b * c;
s := -a + b + c;
end
else
begin
s := a + b + c;
p := a * b * c;
end;
writeln('Сумма цифр числа = ', s);
writeln('Произведение цифр числа = ', p);
end.