В Паскале. Найти произведение всех цифр заданного четырехзначного числа.

Question

Информатика

Фавстина

13 ноября, 10:50

В Паскале. Найти произведение всех цифр заданного четырехзначного числа.

+5

Ответы (1)

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

Валентинка · Answer 1

Var

n, ed, des, sot, tis:integer;

S:real;

Begin

Readln (n) ;

ed:=n mod 10;

des:=n div 10 mod 10;

sot:=n div 100 mod 10;

tis:=n div 1000 mod 10;

S:=ed*des*sot*tis;

Writeln (s) ;

end.