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

Question

Информатика

Тарас

21 сентября, 13:52

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

+4

Ответы (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.