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

Задача: 

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

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

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.

Комментарии

ПАСКАЛЬ!ЗАДАЧА!ПОМОГИТЕ РЕШИТЬ

С клавиатуры вводится 15 целых чисел.НАЙДИТЕ СУММУ НЕ ПРЕВЫШАВШУЮ 25.

Помогите решить, пожалуйста

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

Помогите с информатикой!!!!!

посчитать сумму и произведение натуральных чисел от 100 до 123

Помогите решить

Дано натуральное число,содержащие не более 150 цифр.Вывести на экран число,большее на единицу.
Примеры:
Исходные данные: 634253521912865634253521912865 Результат: 999
Исходные данные: 634253521912865634253521912866 Результат:1000

program name; var chislo,

program name;

var
chislo, ch_new: int64;

begin
read(chislo);
ch_new:=chislo + 1;
writeln(ch_new);
end

Пусть с клавиатуры вводятся

Пусть с клавиатуры вводятся последовательно N целых чисел.Найти произведение чисел меньших семи.
Сделайте пожалуйста:Программы на Pascal

ПОМОГИТЕ ПОЖАЛУЙСТА. СРОЧНО.

Составить программу, которая будет считать количество цифр числа, которые больше 1, но меньше 5.

Решение задачи

program zadacha;
var a,b:integer;
begin
  b:=0;
  Write('Введите число: '); Readln(a);
  If (a>1) and (a<5) Then 
  begin
  while a > 0 do
  begin 
  b:= b + ((a mod 10) - (a mod 10 - 1));
  a:=a div 10;
  end;
  Writeln(b);
  end
  Else Writeln('число не соответствует требованию');
  Readln;
end.

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

Каждый четный элемент массива меньше предыдущего на 5.
Каждый нечетный элемент массива больше предыдущего в 2 раза.
первое число 3.
Найти сумму 12 таких чисел.

C#

Определить содержит ли введенное натуральное число цифры кратные 3

ПоМогите

Напишите алгоритм и программу на языке паскаль вычисляющую сумму цифр трехзначного числа n.
n-трехзначное число(например 762)- исходние данные .
A,b,c-цифры этого числа (вспомогательные переменные)
S-сумма цифр этого числа (результат)
ПОМОГИТЕ ПО ИНФОРМАТИКЕ!!!!

Задача

var
n,a,b,c,s:integer;
begin
read(n);
 a:= n div 100;
 b:=(n div 10) mod 10;
 c:= n mod 10;
 s:=a+b+c;
 write (s);
end.

программирование

1)подсчитать сумму квадратов двухзначных чисел у которых первая цифра меньше второй
2) составить алгоритм и программу печати таблицы значений функции y=1/x на интервале [5,15] с шагом 1
Плюс написать блок схему к каждой задаче
Прошу помогите, очень очень срочно нужно

Помогите

Найти сумму чисел, не превышающих числа 150, если первое число равно 7, а каждое последующее на 10 больше предыдущего.

Информатика

Помогите, пожалуйста.введите с клавиатуры 5 целых чисел. Определите, произведение чисел кратных 3. Программа должна вывести одно число: произведение чисел, кратных 5.

Паскаль! Помогите пожалуйста!!!Циклы!

Пользователь вводит целые числа. Вывести сумму чисел, встречающихся более одного раза и при этом идущих подряд. 0-метка остановки.
Пример:
2 3 3 8 5 4 4 4 -7 1 -1 -1 2 0
16 (т.е. 3+3+4+4+4+(-1)+(-1))

Сумма квадрата и куба

Написать программу по введенному числу x,вывести сумму квадрата и куба

var

var x,b,c,d:real;
begin
read(x);
b:=x*x;
c:=x*x*x;
d:=b+c;
writeln(d);
end.

сумма цифр

помогите нужно написать программу :
напишите програму которая вычисляет сумму первых К цифр 100значного числа

Помогите!

Найти произведение всех целых чисел из промежутка от 3 до 33 кратных 3

var

var a,p:integer;
 
 
begin
a:=3;
p:=3;
while a<33 do
begin
a:=a+3;
 
p:=p*a;
 
end;
writeln(p); 
 
 
 
end.

Паскаль. Прошу помочь!

Нужно составить программу ,согласно которой компьютер запросит 5 целых чисел и выведет на экран сумму первых 2-х и произведение последних 3-х.

var

var a,b,c,d,e,sum,mult:integer;
 
 
 
begin
writeln('Ввдеите 1-е число');
read(a);
writeln('Ввдеите 2-е число');
read(b);
writeln('Ввдеите 3-е число');
read(c);
writeln('Ввдеите 4-е число');
read(d);
writeln('Ввдеите 5-е число');
read(e);
sum:=a+b;
mult:=c*d*e;
writeln('сумма=',sum);
writeln('произведение=',mult);
 
 
 
 
 
 
end.

var a, b, c, d, e:

var   
    a, b, c, d, e: integer;
begin
    read(a, b, c, d, e);
    writeln(a+b,' ', c*d*e);
end.

Помогите! С клавиатуры

Помогите! С клавиатуры вводится два числа а и b. Посчитать сумму квадратов от числа а до числа b.

uses crt;var

uses crt;
var a,b,i,k:integer;
begin
readln(a,b);
for i:=a to b do begin
k:=k+sqr(i); end;
writeln(k);
end.

Помогите

Помогите дано 3-х значение число 357.
Вычислить произведение крайних чисел

div, mod

program ex;
var a,b,c,d:integer;
begin
readln (a);
b:=a mod 10;
c:=a div 100;
d:=b*c;
writeln (d);
end.

Помогите !!!!!!!!!!!!!!!

Ввести число и вывести строку – описание этого числа «Отрицательные число», «Положительное число», «Нулевое число».

Program Ex_2;Var n:

Program Ex_2;
Var n: integer;
Begin
Writeln('Введите число: );
Readln(n);
if n > 0 then Writeln('Положительное число.') else if n < 0 then Writeln('Отрицательное число.') else if n:= 0 then Writeln('Нулевое число.') 
End;

Если я правильно понял, то как-то так...

Вычислить значения многочлена

Вычислить значения многочлена и его первую производную, используя формулу Горнера значения функции в заданном интервале с заданным шагом. Значения аргумента подобрать самостоятельно:
4) y=x8-2x7+3x6-4 x5+5 x4-6 x3+7x2-8 x+9

помогите

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

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

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

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

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

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

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

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

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

сорри

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

БЛОК СХеМУ

БЛОК СХЕМУ

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

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

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.

помогите

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

program n3;var n, a, b:

program n3;
var n, a, b: integer;
begin
write('Введите число');
readln(n);
b:=0;
while n<>0 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.

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

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

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

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

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

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

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

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

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

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

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

readln

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

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

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