Дано: четырёхзначное число.

Найти: сумму его цифр, произведение

Question

Информатика

Таквин

22 апреля, 06:05

Дано: четырёхзначное число.

Найти: сумму его цифр, произведение

+1

Ответы (1)

Знаете ответ на вопрос?

Маина · Answer 1

Program tz;

var

a, b, c:integer;

i:byte;

begin

writeln ('vvedite 4x znachnoe chislo') ;

readln (a) ;

b:=1;

c:=0;

for i:=1 to 4 do begin

b:=b * (a mod 10) ;

a:=a div 10;

c:=c + (a mod 10) ;

end;

writeln ('proizvedenie = ', b) ;

writeln ('summa = ', c) ;

readln;

end.

Дано: четырёхзначное число.Найти: сумму его цифр, произведение

Дано: четырёхзначное число.

Найти: сумму его цифр, произведение