Дано натуральное число n найдите сумму его чисел и произведение.

В PascalABC, и через команду while

Question

Информатика

Валюха

18 января, 00:19

Дано натуральное число n найдите сумму его чисел и произведение.

В PascalABC, и через команду while

+4

Ответы (1)

Знаете ответ?

Вукол · Answer 1

Program asdw;

Uses crt;

Var x, s, s1:integer;

begin

read (x) ;

s1:=1;

s:=1;

while x>0 do

begin

s1:=s1*x mod 10;

s:=s+x mod 10;

x:=x div 10;

end;

writeln (s) ;

writeln (s1) ;

end.

Дано натуральное число n найдите сумму его чисел и произведение.В PascalABC, и через команду while

Дано натуральное число n найдите сумму его чисел и произведение.

В PascalABC, и через команду while