Как найти в паскале цифры четырехзначного числа - AvtoShod.ru

Найти произведение всех цифр заданного четырехзначного числа

3.08.2020

Найти произведение всех цифр заданного четырехзначного числа.

Для решения данной задачи необходимо вспомнить операторы div и mod. Div — целочисленное деление, mod — остаток от целочисленного деления.

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

program z_9;
var n, n1, n2, n3, n4: integer;
begin
  write('Введите черытехзначное число: ');  read(n);
  n1:=n mod 10;
  n2:=(n div 10) mod 10;
  n3:=(n div 100) mod 10;
  n4:=(n div 1000) mod 10;
  write('Произведение = ',n1*n2*n3*n4);
end.

Текст задачи:

Информатика. 10 класс. Базовый уровень. (Семакин И. Г., Хеннер Е. К., Шеина Т. Ю.)
Работа 3.1, Уровень 2, Задача №9

Автор:

Источник

1 / 1 / 0

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

Сообщений: 20

найти сумму цифр заданного четырехзначного числа

22.12.2009, 13:09. Показов 46013. Ответов 1

еще три задачки
1) Для матрицы размером NxM вывести на экран все ее седловые точки. Элемент матрицы называется седловой точкой, если он является наименьшим в своей строке и одновременно наибольшим в своем столбце, или наоборот.
2) В матрице n-го порядка переставить строки так, чтобы на главной диагонали матрицы были расположены элементы, наибольшие по абсолютной величине.
3) найти сумму цифр заданного четырехзначного числа

кот Бегемот

Платежеспособный зверь

8818 / 4245 / 1618

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

Сообщений: 11,385

22.12.2009, 13:21

Сообщение было отмечено как решение

Решение

найти сумму цифр заданного четырехзначного числа

Pascal

var
a,s:integer;
begin
readln(a);
repeat
s:=s+a mod 10;
a:=a div 10;
until a=0;
writeln(s);
end.

или

Pascal

var
a,s,i:integer;
begin
readln(a);
for i:=1 to 4 do
begin
s:=s+a mod 10;
a:=a div 10;
end;
writeln(s);
end.

или

Pascal

var
a,s:integer;
begin
readln(a);
s:=a div 1000+(a div 100)mod 10+(a div 10)mod 10+a mod 10; 
writeln(s);
end.

Источник

2. Составить программу для нахождения цифр четырехзначного числа. Ниже представлен пример диалога. Данные, вводимые пользователем, выделены жирным шрифтом. Введите четырехзначное число 3281 Число тысяч равно 3 Число сотен равно 2 Число десятков равно 8 Число единиц равно 1

Светило науки — 236 ответов — 1792 помощи

Program pr;
uses crt;
Var a, x1, x2, x3, x4:integer;
Begin
Writeln(‘введите 4-х значное число’);
readln(a);
x1:=a div 1000;
x2:=(a mod 1000) div 100;
x3:=(a mod 100) div 10;
x4:=a mod 10;
Writeln(x1);
Writeln(x2);
Writeln(x3);
Writeln(x4);
readln;
end.

Источник

Формулировка задачи:

Если можно, то полностью. Зарание спасибо

Код к задаче: «Найти сумму цифр введенного 4-значного числа»

textual

Листинг программы

Var s,n:integer;
Begin
    write('4-х значное число: ');readln(n);
    s:=(n mod 10)+(n div 10 mod 10)+(n div 100 mod 10)+n div 1000;
    writeln('S = ',s);
    readln;
End.

Полезно ли:

11 голосов , оценка 4.000 из 5

Похожие ответы

Вывести на экран только те суммы цифр, которых больше заданного числа
В натуральном числе n поменять местами порядок цифр для получения наибольшего числа
Найти сумму элементов массива, расположенных после минимального
Найти сумму из N групп элементов ряда
Найти, есть ли в массиве простые числа
Проверить, делится ли сумма цифр введенного двухзначного целого числа на 5
Определить количество трехзначных чисел, сумма цифр которых простое число
Определить наибольшую цифру введенного натурального числа
Дана последовательность чисел, найти в ней наименьшее число
Найти наибольшее количество цифр идущих подряд в файле
Из двух чисел получить новое путём замены чётных цифр первого числа на наибольшую цифру второго числа

Источник

Вычисление суммы цифр заданного числа

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

Программа на Pascal

Program  summ;
Var a,b,c,d,n,summa:integer;
Begin
     writeln('Введите четырехзначное число ');
     readln(n);
     a:=n mod 10;
     b:=n div 1000;
     c:=(n mod 100) div 10;
     d:=(n mod 1000) div 100;
     summa:=a+b+c+d;
     writeln('Сумма равна ',summa);
Readln;
End.

Источник

Найти произведение всех цифр заданного четырехзначного числа

найти сумму цифр заданного четырехзначного числа

Решение

Формулировка задачи:

Код к задаче: «Найти сумму цифр введенного 4-значного числа»

Вычисление суммы цифр заданного числа

Не пропустите также: