Войти Регистрация Спроси ai-bota

Дано число n. найти сумму цифр числа

Показать ответ

Ответ:

OMGKristallikOMG

24.05.2020 19:16

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

uses crt;
var n,s: integer;
begin
write('n='); readln(n);
while n>=1 do
begin
inc(s,n mod 10);
n:=n div 10;
end;
write(s);
readln;
end.

0,0(0 оценок)

Популярные вопросы: Информатика

svetlanaivanova3

01.06.2021 00:55

Ввести с клавиатуры 4 числа, если сумма 1-ого и 2-ого чисел больше 20, то уменьшить эту сумму на 10. иначе увеличить на 10, если 2 число не отрицательное ( или =0),...

sofisofiyaSofi

21.02.2020 20:11

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

нурсула1

21.02.2020 20:11

Дан двумерный массив c[3,2] целых чисел заполненных случайным образом определить количество чётных положительных элементов второй строки...

abarzenkov

21.02.2020 20:11

Какая логическая операция в графическом редакторе corel draw произдедена над изображением сложение, вычитание, объединение, обрезка...

yhjk

01.02.2022 11:45

Исполнитель умеет заменять в слове ровно одну букву, причем из осмысленного слова должно получаться снова осмысленое слово (иначе исполнитель ломается). составьте...

igolovkov2015

07.07.2021 19:28

с 2 заданиями по информатике...

luzhtzkayanasty

21.11.2022 14:58

Построить логические схемы по формулам ...

солнвшко

03.06.2022 14:13

Найдите информационный объем которое несёт ваш ФИО Акматалиева Аиза Мамытовна...

LIZA123456789011

06.07.2020 07:47

На рисунке показана цепь постоянного тока. сопротивления r1=8 ом, r2=10 ом. внутренние сопротивление источника r=2 ом, электродвижущая сила e=20 в. определить тепловую...

мяеенри

02.02.2023 01:04

Уравнение скорости тела массой 200 г,имеет вид v=2+4t. определи силу действующую на тело....

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку