В Паскале.Найти произведение всех цифр заданного четырехзначного числа.
В Паскале.Найти произведение всех цифр заданного четырехзначного числа.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы