Помогите составить программу, которая вычисляет произведение трехзначного числа. Срочно надо! В Паскале.
Ученик
(83),
закрыт
6 лет назад
Лара
Гений
(56353)
6 лет назад
Скорее всего, вы имеете в виду произведение цифр трехзначного числа.
Тогда вот программа:
Program prim;
Var x, a, b,c,p: integer;
Begin
writeln(‘ВВедите трехзначное число’);
readln(x);
a:=x div 100; {первая цифра}
b:=x mod 100 div 10; {вторая цифра}
c:=x mod 10; {третья цифра}
p:=a*b*c;
writeln(‘Произведение цифр=’,p);
End.
Сержант
Оракул
(90716)
6 лет назад
begin
var x: integer;
repeat
x := ReadLnInteger(‘Введите трехзначное число:’);
if (x < 100) or (x > 999) then
begin
WriteLn(‘Упс… ошибочка…: (‘);
Sleep(1500);
end;
until (100 <= x) and (x <= 999);
WriteLn(‘Ответ: ‘, (x div 100) * (x div 10 mod 10) * (x mod 10));
end.
Перейти к содержанию
Сумма и произведение цифр числа
Просмотров 8.3к. Обновлено 29 октября 2021
Если трехзначное число нацело разделить на 100, то получим число сотен, т.е. первую цифру этого числа.
Если найти остаток от деления на 10 любого целого числа, то этот остаток покажет число единиц в этом числе. Таким образом извлекается последняя цифра числа.
Чтобы извлечь среднюю цифру трехзначного числа (показывающую количество десятков), можно выполнить два действия:
- Разделить число нацело на 10. Тем самым избавиться от последней цифры трехзначного числа, превратив его в двузначное.
- Найти остаток от деления полученного двузначного числа на 10. Этот остаток и будет средняя цифра первоначального трехзначного числа.
Извлекая вышеописанным способом цифры числа их надо присвоить переменным. Т.к. цифр три, то и переменных будет три. После этого выполнить сложение и умножение значений переменных.
Pascal
произведение цифр числа паскаль и сумма цифр числа паскаль
var
n: integer;
a,b,c: byte;
begin
readln(n);
a := n div 100;
b := n div 10 mod 10;
c := n mod 10;
writeln('Сумма: ',a+b+c);
writeln('Произведение: ',a*b*c);
end.
Язык Си
произведение цифр числа си и сумма цифр числа си
#includemain() {
int n,a,b,c;
scanf("%d", &n);
a = n / 100;
b = n / 10 % 10;
c = n % 10;
printf("Сумма: %dn", a+b+c);
printf("Произведение: %dn", a*b*c);
}
349
Сумма: 16
Произведение: 108
Целочисленное деление выполняется в том случае, если оба операнда целые. Т.е. у целочисленного деления нет специального знака, а выбор между ним и обычным делением зависит от операндов. Если хотя бы один из операндов вещественное число, то и деление будет обычным.
Python
произведение цифр числа Python и сумма цифр числа Python
n = input("Введите трехзначное число: ")
n = int(n)d1 = n % 10
d2 = n % 100 // 10
d3 = n // 100print("Сумма цифр числа:", d1 + d2 + d3)
print("Произведение цифр числа:", d1 * d2 * d3)
Введите трехзначное число: 742
Сумма цифр числа: 13
Произведение цифр числа: 56
КуМир
алг сумма цифр
нач
ввод n
a := div(n,100)
b := mod(div(n,10),10)
c := mod(n,10)
вывод "Сумма: ", a+b+c, нс
вывод "Произведение: ", a*b*c, нс
кон
Basic-256
input na = n 100
b = n 10 % 10
c = n % 10print a+b+c
print a*b*c
Обратите внимание на знак целочисленного деления. Это обратный слэш (), в то время как обычное деление обозначается обычным слэшем (/).
Перейти к контенту
Вычислительная техника и дискретная математика
Программа вычисляет произведение цифр, заданного пользователем трёхзначного числа.
Решение:
1 |
program line_6; |
Рейтинг
( Пока оценок нет )
Integer11. Дано трехзначное число. Найти сумму и произведение его цифр.
Решение:
program Integer11; var A, Res: Integer; begin Write(‘Введите трёхзначное число: ‘); Readln(A); Res:=(A mod 10) + ((A mod 100) div 10 )+ (A div 100); //* Writeln(‘Сумма цифр равна: ‘,Res); Res:=(A mod 10) * ((A mod 100) div 10) * (A div 100); Writeln(‘Произведение цифр равно: ‘,Res); end. |
* (A mod 10) — Получаем единицы
(A div 100) — Получаем кол-во сотен
(A mod 100) div 10 — Получаем десятки
Другие задачи из раздела Integer можно посмотреть здесь.
1 / 1 / 0 Регистрация: 18.05.2010 Сообщений: 3 |
|
1 |
|
Дано трехзначное число, найти произведение его цифр.18.05.2010, 22:29. Показов 49018. Ответов 11
№1
0 |
Puporev Почетный модератор 64285 / 47584 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182 |
||||
18.05.2010, 22:32 |
2 |
|||
Дано трехзначное число, найти произведение его чисел. Господи, и когда научимся отличать цифры от чисел…
Добавлено через 51 секунду
двух равнобедренных поэкций Ну а это уже клиника…
0 |
1 / 1 / 0 Регистрация: 18.05.2010 Сообщений: 3 |
|
18.05.2010, 22:39 [ТС] |
3 |
А можно полный текст программ.
0 |
Angel-dm 113 / 110 / 33 Регистрация: 21.12.2009 Сообщений: 321 |
||||||||
18.05.2010, 23:53 |
4 |
|||||||
А можно полный текст программ. вот вроде:
Добавлено через 10 минут
0 |
STGE 773 / 578 / 324 Регистрация: 17.06.2009 Сообщений: 1,188 |
||||||||
19.05.2010, 00:08 |
5 |
|||||||
3.
Добавлено через 4 минуты
0 |
1 / 1 / 0 Регистрация: 18.05.2010 Сообщений: 3 |
|
20.05.2010, 20:32 [ТС] |
6 |
Большое спасибо!!
1 |
1 / 1 / 0 Регистрация: 03.11.2011 Сообщений: 103 |
|
03.11.2011, 19:10 |
7 |
Народ помогите плиз!! у меян проблема надо Посчитать произведение круглых трехзначных чисел и я блин все делал никак не получаеться(( помогите плиз срочно!(( буду премного благодарен!
0 |
mashakas |
||||
04.12.2011, 00:19 |
8 |
|||
вы не могли бы объяснить, почему r так находится? |
0 / 0 / 2 Регистрация: 10.05.2011 Сообщений: 4 |
|
04.12.2011, 11:29 |
9 |
например, число 123: надо получить “2”
0 |
mashakas |
|
04.12.2011, 18:35 |
10 |
kiniovd, большое спасибо))) |
0 / 0 / 0 Регистрация: 20.02.2012 Сообщений: 37 |
|
20.02.2012, 18:23 |
11 |
Дано а — трехзначное натуральное число. Получить двузначное число b, которое получается из а вычеркиванием средней цифры.
0 |
1 / 1 / 0 Регистрация: 03.11.2011 Сообщений: 103 |
|
20.02.2012, 23:27 |
12 |
вот как скзали сделать!
1 |