Главная

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

вс, 04/24/2011 - 18:35 — tech
Темы учебника
Целые типы
Циклы в Паскале
Задача: 

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

Описание переменных: 

n – число;
sum – сумма цифр;
mult – произведение цифр.

Алгоритм решения задачи: 
  1. sum присвоить ноль.
  2. mult присвоить единицу (при умножении на ноль результат будет нулевым).
  3. Пока n больше нуля
    1. найти остаток от деления n на 10 (т.е. последнюю цифру числа), добавить его к сумме и увеличить произведение;
    2. избавиться от последнего разряда числа n путем деления нацело на число 10.
Программа на языке Паскаль:  

var n, sum, mult: integer;
begin
    write('Enter number: ');
    readln(n);
    sum := 0;
    mult := 1;
    while n > 0 do begin
        sum := sum + n mod 10;
        mult := mult * (n mod 10);
        n := n div 10
    end;
    writeln('Sum of digits = ', sum);
    writeln('Multiplication of digits = ', mult);
readln
end.

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

Комментарии

Пнд, 12/15/2014 - 16:31 — Гость

помогите

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

  • ответить
Втр, 11/25/2014 - 23:15 — Гость

Помогите написать программу:

Помогите написать программу: дано целое трехзначное число, состоящее из неодинаковых цифр. Определите какая из его цифр больше - первая или вторая +блок-хему пожалуйста!!!!!!!!!!!

  • ответить
чт, 05/15/2014 - 20:00 — Гость

Помогите написать программу,

Помогите написать программу, в которой нужно найти сумму вводимых с клавиатуры чисел ,кратных заданному числу 7

  • ответить
Втр, 04/15/2014 - 09:11 — Гость

ПОМАГИТЕ!!! заранее спасибо

МОЖЕТЕ НАПИСАТЬ БЛОК СХЕМУ ЭТОЙ ПРОГРАММЫ (сумма и пройзведенияцифр числа)

  • ответить
сб, 04/19/2014 - 13:47 — Гость

так тебе блок схему или саму

так тебе блок схему или саму программу с БС?

  • ответить
Пнд, 04/21/2014 - 19:13 — Гость

сорри

саму програму с бс

  • ответить
Пнд, 04/21/2014 - 19:06 — Гость

БЛОК СХеМУ

БЛОК СХЕМУ

  • ответить
пт, 02/28/2014 - 16:36 — Гость

Двумерный массив

1.Найти количество всех натуральных двухзначных чисел, которых первая цифра меньше второй.
2.Найти произведение всех натуральных двухзначных чисел, у которых первая цифра в два раза больше второй.
3.Найти суммы, количество, среднеарифметическое всех натуральных двухзначных чисел, которые состоят из разных цифр.
4. Найти количество всех натуральных двухзначных чисел, у которых сумма цифр кратная 2.
5. Найти суммы, количество, среднеарифметическое всех натуральных трёхзначных чисел, которые начинаются и заканчиваются одинаковыми цифрами (например, 343,656).
Решите пожалуйста любую(( СПАСИБО!

  • ответить
ср, 03/05/2014 - 19:21 — Гость

5-я

const
n= 200;
var
mas:array[1..n]of integer;
i,k,sum:integer;

begin
k:=0;sum:=0;
for i:=1 to n do
mas[i]:=Random(700)+1;

for i:=1 to n do
if (mas[i]div 100) = (mas[i] mod 10) then
begin
k:=k+1;
sum:=sum+mas[i];
end;
writeln('количество искомых цифр = ',k,#10,'их сумма = ',sum,#10,'ср.арифм.= ',sum/k:7:2);
end.

  • ответить
вс, 03/02/2014 - 23:08 — tech

Решение четвертой задачи.

Решение четвертой задачи.

  • ответить
чт, 02/27/2014 - 12:58 — Гость

помогите

Обработка ццелых чисел в цикле While
определить ,содержит ли введенное натуральное число N цифры,кратные 3.

  • ответить
сб, 03/01/2014 - 10:34 — Гость

program n3;var n, a, b:

program n3;
var n, a, b: integer;
begin
write('Введите число');
readln(n);
b:=0;
while n0 do begin
a:=n mod 10;
n:=n div 10; 
if a mod 3 = 0 then b:=b+1;
end;
if b>0 then write ('Число содержит цифры, кратные 3')
else  write ('Число не содержит цифры, кратные 3');
end.

  • ответить
ср, 02/26/2014 - 09:31 — Гость

помогите пожалуйста

написать программу,которая вычисляет сумму первых n целых положительных четных чисел.Количество суммируемых чисел должно вводится во время работы программы

  • ответить
пт, 10/04/2013 - 00:33 — Гость

1. Вводится число. Вывести

1. Вводится число. Вывести его на экран в обратном по-
рядке.
2. Вводится четырёхзначное число (abcd). Вывести сумму
ab + cd.

  • ответить
Втр, 10/08/2013 - 11:34 — tech

Первая задача очень простая:

Первая задача очень простая: в цикле находите остаток от деления числа на 10 и сразу выводите его на экран без перехода на новую строку (write). Если же надо сохранить результат в виде числа, то https://pas1.ru/turnover-number

Вариант решения второй задачи: https://pas1.ru/number-abcd

  • ответить
вс, 09/29/2013 - 17:47 — Гость

Дано натур. число N.

Дано натур. число N. Вычислить:
S=1-1/2+1/4-1/8+...+(-1)в степени N * 1/(2в степени N)

  • ответить
ср, 10/02/2013 - 12:31 — tech

Решение аналогичных задач

Решение аналогичных задач здесь: https://pas1.ru/epsilon

  • ответить
вс, 09/08/2013 - 10:37 — Гость

readln

Здесь оператор readln лишний...

  • ответить
ср, 10/02/2013 - 12:33 — tech

Он не лишний, а прописан для

Он не лишний, а прописан для того, чтобы окно вывода не закрывалось сразу после выполнения программы. Readln ждет нажатия клавиши и поэтому программа не завершается.

  • ответить
чт, 11/22/2012 - 22:23 — Гость

Ввести число. Если данное

Ввести число. Если данное число является трехзначным, то на экран вывести сумму его цифр, иначе - составить запись. «Иначе составить запись» - это, вроде, вывести на экран само число, которое было введено, если оно не трехзначное.

  • ответить
Пнд, 04/02/2012 - 17:34 — Гость (не проверено)

Пожалyйста решите задачy!))

С клавиатуры вводится натуральное число n. Посчитайте сумму S=1+2+3…+n.

  • ответить
ср, 03/27/2013 - 17:48 — Гость

С клавиатуры вводится натуральное число n. Посчитайте сумму S=1+

var n,i:integer;
begin
readln(n);
for i:=1 to n do
s:=s+i;
writeln(s);
end.

  • ответить
Пнд, 04/02/2012 - 23:42 — Гость (не проверено)

uses crt;var

uses crt;
var d,A1,n,An:integer;
S:real;
begin
clrscr;
writeln('vvedite A1');
readln(a1);
writeln('vvedite n');
readln(n);
Writeln('vvedite d');
readln(d);
   An:=A1+d*(n-1);
   S:=((A1+An)*n)/2;
wirteln('Summa=',S :10:4)
end
.

An-любой член кроме А1.Он высчитывается из формулы(см.прогу).
n-кол-во членов
D- расстояние между двумя членами стоящими рядом друг с другом.(т.е. при S=1+2+3+...+n D=1,а при S=1+3+5+7+...+n D=2 и т.д.).
Всё по формулам арифметической прогрессии.

  • ответить
Пнд, 01/16/2012 - 17:18 — Гость

найти сумму натуральных

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

  • ответить
Втр, 01/17/2012 - 07:13 — Гость

решение

var
i, r1, r2, n, sum:integer;
begin
 
  readln(n); 
  sum:=0;
  for i:=10 to 99 do //пробегаем циклом по двузначным числам
  begin
    r1:=i div 10; //находим значение старшего разряда числа i
    r2:=i mod 10; //находим значение младшего разряда числа i
    if (r1+r2=n) then sum:=sum+i;  //если сумма старшего и младшего разрядов числа i равна заданному числу, то добавляем i к ответу
  end;
 
  writeln('sum = ',sum); //выводим найденную сумму
 
  readln;
 
end.

  • ответить
Втр, 01/17/2012 - 22:56 — Гость

Помогите написать такую

В трех файлах (21.txt, 22.txt, 23.txt) находятся целые числа (по одному числу в каждом файле). Написать программу, которая определит сумму цифр числа, полученного при суммировании этих чисел.

  • ответить
ср, 01/18/2012 - 09:41 — tech

Что значит "огромные" целые

Что значит "огромные" целые числа?

  • ответить
Втр, 01/24/2012 - 00:03 — Гость

Что такое огромные числа

Подразумеваются, наверно, длинные целые.

  • ответить
ср, 01/25/2012 - 17:38 — Гость

обычно под "огромными"

обычно под "огромными" понимают числа, которые не помещаются в существующие диапазоны (целое из 100 знаков). Для таких чисел нужно определять как их хранить (например, массив цифр), после этого - основные арифметические операции над ними.

Это на порядок усложняет задачу, поэтому лучше уточнить у того, кто такую задачу задал :)

  • ответить
ср, 03/05/2014 - 23:11 — Гость

если конечно предполагается

если конечно предполагается что в тех вышеуказанных трех текстовых документах указаны числа именно в качестве строкового типа

  • ответить
ср, 03/05/2014 - 23:09 — Гость

что-то вроде этого

type
  massive = array of integer;
 
var
  f, g, h: Text;  s1, s2, s3: string;
  vrem, ost, i,max: integer;
  masR, mas1, mas2, mas3: massive;
 
procedure Uravnivanie(var str: string);
begin
  while length(str) do
    str := '0' + str;
end;
 
procedure preob(var st: string; var mas: massive);
var
  j: integer;
begin
  setlength(mas, max + 1);
  for j := 1 to max do
  begin
     mas[j] := StrToInt(st[j]);
    write(mas[j]);
  end;
  writeln;
end;
 
begin
  assign(f, 'C:\Users\llexisll\Desktop\1.txt');  
  assign(g, 'C:\Users\llexisll\Desktop\2.txt');
  assign(h, 'C:\Users\llexisll\Desktop\3.txt');
  Reset(f);Reset(g);Reset(h);  readln(f, s1);readln(g, s2);readln(h, s3);  close(f);
 
  max := length(s1);
  if max (s2) then max := length(s2) else
  if max (s3) then max := length(s3);
 
  Uravnivanie(s1);Uravnivanie(s2);Uravnivanie(s3);
  writeln('1 число'); preob(s1, mas1);
  writeln('2 число'); preob(s2, mas2);
  writeln('3 число'); preob(s3, mas3);
 
  setlength(masR, max + 1);
  for i := max downto 0 do
  begin
    vrem := mas1[i] + mas2[i] + mas3[i] + ost;
    ost := 0;
    if vrem then
      masR[i] := vrem else
    begin
      masR[i] := MasR[i] + vrem mod 10;
      ost := vrem div 10;
    end;
  end;
 
  for i := 0 to max do 
    write(masR[i]);
end.

  • ответить