Записать в Паскале.Найти произведение всех цифр заданного четырехзначного числа. x это 4ех значное чило a,б,с,д цифры из x
ну кто то
жаль
прошу модератора удалить вопрос
нет)
а вы можете потом удалить ответ
сейчас тебе всё распишут
поэтому спрашиваю
я незнаю
ну тут через мод и див решается
Program Chisla; var x, a, b, c, d, dob : integer; begin readln(x); d:= x mod 10; a:= x div 1000; b:=(x div 100)-10*a; c:= (x div 10) - 100*a-10*b; dob:=a*b*c*d; writeln(dob); end.
добуток на укр
что такое dob
это произведение
а можно вместо dob написать a*b*c*d
да
а это разве правильно ?
лучший плиз
нет нужна переменая