Найти произведение цифр заданного целого четырехзначного числа.в pascal. плз как написать программу в паскаль

Question

Найти произведение цифр заданного целого четырехзначного числа.в pascal. плз как написать программу в паскаль

Юля Лукова Ученик (130), закрыт 13 лет назад

Answer 1

Да просто это делается.

P := 1; {здесь будет произведение}
while n > 0 do begin
P := P * (n mod 10);
n := n div 10;
end;

Answer 2

sm Просветленный (32514) 13 лет назад

в аську 169527143 !

Answer 3

запомните, здесь никто никогда не отвечает по учебе!!!!)

Answer 4

Переведите число в стринг, берите по одному символу переводите в интежер и перемножайте .

Answer 5

c - integer ваше число.
p - тоже интегер

p:=(с div 1000)*((c mod 1000)div 100)*((c mod 100)div 10)*(c mod 10);

если с- менее чем четыерхзначное - получите ноль, если более - то только произведение последних четырех знаков.

Answer 6

Слава Шевелев Знаток (380) 5 лет назад

ается единственное значение n=1991.
вфыв