Составьте программу, которая находит произведение цифр заданного четырехзначного числа

Question

Составьте программу, которая находит произведение цифр заданного четырехзначного числа

Экономика

Гость

Ответ(ы) на вопрос:

Accepted Answer

Var a,s,d,f:integer; Begin Writeln('четырехзначное число,s'); a:=0; a:=(s div100)*(s mod 10 )*(s div 10 mod 10)*(s div 100 mod 10); Writeln ('s'); End.