

Программирование
+1Как записать это на паскале?? Дано трехзначное число.Найти сумму и произведение его цифр
По дате
По рейтингу
Можно сделать очень просто, введи каждую цифру данного трехзначного числа отдельно и совершай с ними все арифметические операции.
Uses Crt;
Var a,b,c,s,p:integer;
Begin
ClrScr;
writeln('Введи трехзначное число');
readln( a,b,c); {После ввода каждой цифры жми Enter}
s:=0; s:=a+b+c;
p:=1; p:=a*b*c;
writeln('Сумма цифр s= ',s:5, 'Произведение цифр p= ',p:7);
readkey
End.
а если не хитрить (не вводить число отдельными цифрами), то можно так
var a,x,y,s,o,z:integer;
begin;
writeln('Введите трёхзначное число');
readln(a);
x:=a mod 10;
a:=a div 10;
y:=a mod 10;
z:=a div 10;
s:=x+y+z;
o:=x*y*z;
writeln('Сумма цифр=',s, ' Произведение цифр=',o);
end.
может вот это натолкнет на какие то мысли [ссылка заблокирована по решению администрации проекта]
Больше по теме