С Новым годом! Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Pascal ABC Какие ограничения накладывает на переменную указанных для нее тип? https://www.cyberforum.ru/ pascalabc/ thread672435.html
Какие ограничения накладывает на переменную указанных для нее тип?
Pascal ABC Найдите все ошибки в написание указанных операторов:
READLN(Y+1;X); WRITELN("ВВЕДИТЕ ЧИСЛО"=5); READLN(5);X:=7DIV2 ORD Y;
Pascal ABC Графические элементы в Паскаль абс https://www.cyberforum.ru/ pascalabc/ thread672431.html
Всем привет. В моем колледже мы пропускаем графическую часть Паскаля, а мне хотелось бы самостоятельно это освоить для дальнейшего написания простеньких игр. Сразу говорю, не надо мне советовать другие языки для игр. Я прошу помощи конкретно по графике в паскале, а именно: литературу какую-нибудь, ссылки на сайты, где все подробно рассказывается. А так же хотелось бы узнать, что необходимо знать...
Pascal ABC Укажите последовательность выполнения операций в произвольном выражении при отсутствии скобок Укажите последовательность выполнения операций в произвольном выражении при отсутствии скобок https://www.cyberforum.ru/ pascalabc/ thread672428.html
Pascal ABC Дайте определение зарезервированного (служебного) слова языка
Дайте определение зарезервированного (служебного) слова языка
Pascal ABC Сформировать новый массив так, чтобы в начале шли положительные, потом нулевые и отрицательные https://www.cyberforum.ru/ pascalabc/ thread672391.html
Разработать алгоритм в Паскале Сформировать массив чисел А, а затем из него получить новый массив В таким образом, чтобы в начале шли положительные элементы, потом нулевые и, наконец, отрицательные.
Pascal ABC Написать программу вычисления интеграла методом правых, левых и средних прямоугольников Написать программу вычисления интеграла методом правых, левых и средних прямоугольников. https://www.cyberforum.ru/ pascalabc/ thread672356.html НОД для нормы матриц Pascal ABC
Найти НОД для l1- нормы матриц: (4*4) и (4*4)
Pascal ABC Вычислить значение выражения Вычислить значения Y , соответствующие каждому значению X (Xn=<X=<Xk, шаг изменения Х равен dX) по формуле Y=(-e^cos(x)) - 1. Вычислить сумму положительных значений Y, произведение нулевых Y, количество отрицательных Y. https://www.cyberforum.ru/ pascalabc/ thread672320.html Pascal ABC Сформировать таблицу перевода английских фунтов https://www.cyberforum.ru/ pascalabc/ thread672291.html
Сформировать таблицу перевода английских фунтов (lb) в метрические килограммы для значений от 1 до 20 lb с шагом 0,5 lb (1 lb = 0,454 кг)
Pascal ABC Вывод цифр находящихся в строке
Помогите! пожалуйста. Составить прогу вывода всех цифр находящихся в строке.
Pascal ABC Если числа не равны, то заменить каждое из них большим УСЛОВНЫЙ ОПЕРАТОР 16. Даны целые числа m, n. Если числа не равны, то заменить каждое из них одним и тем же числом, равным большему из исходных, а если равны, то заменить числа нулями. https://www.cyberforum.ru/ pascalabc/ thread672276.html
Избранный
83 / 83 / 42
Регистрация: 08.06.2012
Сообщений: 174
16.10.2012, 16:17 0

Для введенного целого числа вычислите произведение его цифр - Pascal ABC - Ответ 3567935

16.10.2012, 16:17. Показов 2595. Ответов 3
Метки (Все метки)

Ответ

Добавлено через 49 секунд
Цитата Сообщение от Muslim Посмотреть сообщение
Мне нужно Как ты это написал объяснение
Каждую строчку расписал
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
var n,m,pr:integer;
begin
pr:=1;              //присваиваем начальное значение произведения 1
readln(n);         //вводим число
repeat             //повтоярять
m:= n mod 10; //отделяем последнюю цифру в числе
n:=n div 10;    //отбрасываем последнюю цифру т.к. она больше не нужна
pr:=pr*m;       //произведение умножаем на отделившуюся каждый раз цифру
until n=0;        //пока количество цифр в числе не будет равным 0
writeln(pr);     //вывести произведение
readln;
end.


Вернуться к обсуждению:
Для введенного целого числа вычислите произведение его цифр Pascal ABC
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
16.10.2012, 16:17
Готовые ответы и решения:

Найти сумму всех четных цифр целого четырехзначного числа введенного с клавиатуры.
Кому не сложно решить? 1. С клавиатуры вводится целое четырехзначное число. Найти сумму всех...

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

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

Найти произведение четных цифр целого числа
Найти произведение четных цифр целого числа. Технические условия *** Входные данные: Одно целое...

3
16.10.2012, 16:17
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.10.2012, 16:17
Помогаю со студенческими работами здесь

Вычислить произведение цифр заданного целого двухзначного числа
Вычислить произведение цифр заданного целого двухзначного числа. Входные данные: Во входном...

Найти произведение цифр заданного целого четырехзначного числа
Номер теста |Проверяемый случай |Число |Результат 1 |Число положительное |2314 |P = 24 2 |Число...

Вычислить произведение цифр заданного целого двухзначного числа
Вычислить произведение цифр заданного целого двухзначного числа. Входные данные: Во входном...

Найти произведение цифр заданного целого четырехзначного числа
дали 30 задач, решить в Паскаль, тут люди умнее меня... 1. Найти произведение цифр заданного...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru