Как найти произведение трехзначного числа в паскале

Помогите составить программу, которая вычисляет произведение трехзначного числа. Срочно надо! В Паскале.



Ученик

(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 любого целого числа, то этот остаток покажет число единиц в этом числе. Таким образом извлекается последняя цифра числа.

Чтобы извлечь среднюю цифру трехзначного числа (показывающую количество десятков), можно выполнить два действия:

  1. Разделить число нацело на 10. Тем самым избавиться от последней цифры трехзначного числа, превратив его в двузначное.
  2. Найти остаток от деления полученного двузначного числа на 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.


Язык Си

произведение цифр числа си и сумма цифр числа си


#include

main() {
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 // 100

print("Сумма цифр числа:", 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 n

a = n 100
b = n 10 % 10
c = n % 10

print a+b+c
print a*b*c


Обратите внимание на знак целочисленного деления. Это обратный слэш (), в то время как обычное деление обозначается обычным слэшем (/).

Перейти к контенту

Вычислительная техника и дискретная математика

Программа вычисляет произведение цифр, заданного пользователем трёхзначного числа.

Решение:

1
2
3
4
5
6
7
8
9
10
11
12
13
14

program line_6;
uses crt;
var
a, pr: integer;
begin
clrscr;
write(‘a = ‘); readln(a);
pr:=1;
pr:=pr*(a div 100);
pr:=pr*(a mod 10); a:=a div 10;
pr:=pr*(a mod 10);
write(‘Произведение цифр = ‘, pr);
readkey;
end.

Рейтинг

( Пока оценок нет )

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
Дано трехзначное число, найти произведение его цифр.
№2
Дано натуральное число n (n<=9999), вычислите верно ли, что это число содержит ровно три одинаковые цифры, если оно записано четырьмя цыфрами.
№3
Определите количество натуральных трехзначных чисел, сумма цифр которого равна целому числу n (0<n<=27).
№4
Даны основания и высоты двух равнобедренных трапецый, найти сумму их периметров.



0



Puporev

Почетный модератор

64285 / 47584 / 32739

Регистрация: 18.05.2008

Сообщений: 115,182

18.05.2010, 22:32

2

Дано трехзначное число, найти произведение его чисел.

Господи, и когда научимся отличать цифры от чисел…

Pascal
1
p:=(a div 10)*(a div 10 mod 10)*(a mod 10);

Добавлено через 51 секунду

Цитата
Сообщение от Getn3et
Посмотреть сообщение

двух равнобедренных поэкций

Ну а это уже клиника…



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

Цитата
Сообщение от Getn3et
Посмотреть сообщение

А можно полный текст программ.
Извените очень спешил.

вот вроде:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Program sd;
uses crt;
var
s,y,z,x,r: integer;
Begin
clrscr;
Writeln('Введите  трехзначное число:');
readln(x);
s:=x div 100;
r:=x mod 100 div 10;
y:=x mod 10;
z:=y*r*s;
writeln('произведение чисел = ',z);
readln;
End.

Добавлено через 10 минут
второе задание:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program trete;
uses crt;
var x,a,s,r,y,v:integer;
begin
write('Введите число=');
readln(x);
a:=x div 1000;
s:=x div 100 mod 10;
r:=x mod 100 div 10;
y:=x mod 10;
if (a=s)and(r=y)
or (a=s) and(s=r)
or (a=s) and (s=y)
or (s=r) and (s=y)
or (y=r)and (r=a)
then writeln('число содержит три одинаковый цифры')
else writeln('нет трех одинаковых цифр');
readln
end.



0



STGE

773 / 578 / 324

Регистрация: 17.06.2009

Сообщений: 1,188

19.05.2010, 00:08

5

3.

Pascal
1
2
3
4
5
readln(n);
if (n>=0) and (n<=27) then
for i:=100 to 999 do
if i mod 10 + i div 100 + i div 10 mod 10 = n then write(i)
else writeln('значение n не удовлетворяет условию');

Добавлено через 4 минуты
4.

Pascal
1
sum:=2*sqrt(sqr(h1)+sqr((b1-a1)/2))+a1+b1+2*sqrt(sqr(h2)+sqr((b2-a2)/2))+a2+b2;



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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Program sd;
uses crt;
var
s,y,z,x,r: integer;
Begin
clrscr;
Writeln('Введите  трехзначное число:');
readln(x);
s:=x div 100;
r:=x mod 100 div 10;
y:=x mod 10;
z:=y*r*s;
writeln('произведение чисел = ',z);
readln;
End.

вы не могли бы объяснить, почему r так находится?

0 / 0 / 2

Регистрация: 10.05.2011

Сообщений: 4

04.12.2011, 11:29

9

например, число 123: надо получить “2”
остатком от деления на 100 (mod 100) будет: “23”, а от этого остатка берется целая часть при делении на 10 (div 10) ,т.е. “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



Добавить комментарий