Паскаль! дано треззначное число. найти: а) число единиц в нем, b) число десятков в нем, c) сумму его цифр, d) произведение его цифр

Question

Информатика

Ангелиныч

29 декабря, 19:15

Паскаль! дано треззначное число. найти: а) число единиц в нем, b) число десятков в нем, c) сумму его цифр, d) произведение его цифр

+5

Ответы (1)

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

Катюля · Answer 1

Var a, b, c, d, e, f:integer;

begin

readln (a) ;

b:=a mod 10;

c:=a div 10 mo 10;

d:=a div 100;

e:=b+c+d;

f:=b*c*d;

writeln ('Число единиц:', b) ;

writeln ('Число десятков:', c) ;

writeln ('Сумма цифр:', e) ;

writeln ('Произведение цифр:', f)

end.