var
a,b,c: integer;
begin
readln(a,b,c);
writeln(a+b+c)
end.
//PascalABC.NET
//Версия 3.3. сборка 1583 (25.11.2017)
var
a:integer;
begin
read(a);
writeln('Произведение десятков: ',(a mod 10)*(a div 10 mod 10)*(a div 100)*1000);
writeln('Произведение единиц: ',(a mod 10)*(a div 10 mod 10)*(a div 100));
readln;
readln;
end.
Пример:
123
Произведение десятков: 6000
Произведение единиц: 6
//работает только для 3-ех значных чисел.
#include <iostream>
using namespace std;
int main()
{
int s,a,b,c,i;
cin >> i;
a = i / 100;
b = i / 10 % 10;
c = i % 10;
cout <<a<<"+"<<b<<"+"<<c<<"="<<a+b+c;
return 0;
}
1)24000
2)1,5
если неоштбаюсь