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

Составить алгоритм и программу поиска всех цифр пятизначного числа нахождение, произведение и суммы всех цифр! заранее спасибо)
Гость
Ответ(ы) на вопрос:
Гость
Вот на паскале: var a,b,s,p,i:integer; begin s:=0; p:=1; read(a); for i:=1 to 5 do begin b:=a mod 10; s:=s+b; p:=p*b; a:=a div 10; end; Writeln('Сумма: ',s); Write('Произведение: ',p); End.
Гость
Program n1; var a,d1,d2,d3,d4,d5: longint; begin readln(a); d1:=a div 10000; d2:=(a mod 10000) div 1000; d3:=(a mod 1000) div 100; d4:=(a mod 100) div 10; d5:=a mod 10; writeln('произведение: ',d1*d2*d3*d4*d5); writeln('сумма: ',d1+d2+d3+d4+d5); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы