Статистика
Всего в нашей базе более 4 327 657 вопросов и 6 445 963 ответов!

Ввести целое число и найти сумму его цифр(1234) Паскаль

10-11 класс

Верка7775 08 апр. 2017 г., 15:29:02 (6 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Mirantusenov
08 апр. 2017 г., 18:11:02 (6 лет назад)

var

  a, Summ:integer;

begin

  write('Введите число ');

  readln(a);

  Summ := 0;

  while a > 0 do

  begin

    Summ := Summ + a mod 10;

    a := a div 10;

  end;

  writeln('Сумма цифр равна ', Summ);

end.

 

+ 0 -
Olya220104
08 апр. 2017 г., 20:32:38 (6 лет назад)

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

Ответить

Другие вопросы из категории

каковы функции монетора
написать программу в Паскале:

Даны три числа А,В,С.Определить являются ли они последовательными членами арифметической прогрессии. Найти их разность.

Читайте также

Всем привет! Помогите пожалуйста по информатике. Задача: ввести целое число и найти сумму его цифр. Пример: введите целое число:1234. Сумма цифр числа 1

234 равна 10. Задача: сумма цифр ввести целое число и определить верно ли, что в его записи есть 2 одинаковые цифры. Пример: введите целое число 1234 нет введите целое число 1224 да

4 задачи: ввести натуральное число и определить, верно ли, что сумма цифр равна 10 (через repeat и until)//// ввести натуральное

число и определить, какие цифры встречаются несколько раз (через repeat и until)///

ввести целое число и найти сумму его цифр (через while)

ввести целое число и определить , верно ли, что в его записи есть две одинаковые цифры(через while)

всё через паскаль абс

1)Ввести целое число и найти произведение его четных цифр. Пример: Введите целое число: 1234. Произведение четных цифр числа 1234 равно

6.

2)Ввести целое число и определить количество черных и нечетных цифр.

Пример:

Введите целое число :12547

количество нечетных цифр:3

количество четных цифр:2

Дано натуральное число: определить а) количество цифр в нем б)сумму его цифр в)произведение его цифр г)среднее арифметическое его цифр

д)сумму квадратов его цифр е)сумму кубов его цифр ж)его первую цифру з)сумму его первой и последней цифр

1.Дано двузначное число.Определить: a.какая из его цифр больше,первая или вторая; b. одинаковы ли его цифры. 2. Дано двухзначное число.

Определить,равен ли квадрат этого числа учетверённой сумме кубов его цифр. Например, для числа 48 ответ положительный, для числа 52-отрицательный. 3. Дано двузначное число. Определить: a. кратна ли трём сумма его цифр b. кратна ли сумма его цифр числу a. 4. Дано трёхзначное число Определить,равен ли квадрат этого числа сумме кубов его цифр. 5. Дано двузначное число,определить:входит ли в него цифра 3: входит ли в него цифра a.



Вы находитесь на странице вопроса "Ввести целое число и найти сумму его цифр(1234) Паскаль", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.