1. Информатика
  2. Найти сумму цифр n-значных

Найти сумму цифр n-значных чисел. Информатика 8 класс. Язык паскаль​

Jihye11 Jihye11    1   11.04.2021 09:49    0

Ответы
MrDeLaYpI MrDeLaYpI  11.05.2021 09:49

Программа на PascalABC.NET:

var n, sum: integer;

begin

sum := 0;

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

read(n);

write('Сумма цифр числа ', n, ' = ');

while n <> 0 do begin

 sum := sum + n mod 10;

 n := n div 10

end;

write(sum);

end.


Найти сумму цифр n-значных чисел. Информатика 8 класс. Язык паскаль​
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
fafab232 fafab232  27.04.2021 16:21
На скільки градусів буде виконано поворот у результаті виконання такого циклу?​...
PokerFresh PokerFresh  27.04.2021 16:21
Построить класс Stack для стека, а от него построить классы – наследники для очереди и дека с использованием динамического представления. с++...
roversun7 roversun7  27.04.2021 16:22
Дана постановка задачи:Сердце здорового человека выполняет 75 ударов в минуту. Определи количество ударов Y, которое выполнится за Х минут. Пользователь вводит целое положительное...
vlados20033 vlados20033  27.04.2021 16:22
Расположите по порядку оформление автооглавления. 1.Выделить текст, который требуется включить в оглавление 2.Выбираем уровень, к которому следует отнести выделенный текст...
lebedeva2303 lebedeva2303  03.06.2021 21:49
решить задание на языке Паскаля. 1. Скласти програму для визначення функції a^x із заданого погрішністю ε=1*10^-6 на інтервалі [a,b]. a^x=e^x*ln(a)=1+x*ln(a)/1!+(x*ln(a))^2/2!+...+(x*ln(a))^n/n!...
гость162 гость162  03.06.2021 21:50
Program example; var x,y:integer; begin writeln ( Введите число ); readln(x); while x 1 do if x mod 2=1 then begin x:=x*3+1; end else begin x:=x div 2; end; y:=x; readln(y);...
deva70 deva70  03.06.2021 21:55
Алгебра логики картинка 1 - нужно минимизировать эту функцию и дать вектор значений для минимизированной функции....
Франц11 Франц11  03.06.2021 22:02
Решение на языке C++: Описать процедуру COPY(T,T1), которая строит T1-копия дерева T....
Killer9568 Killer9568  30.04.2020 07:10
1.Тіктөртбұрыш (Прямоугольник) құралымен сахнаның (сцена) ортасынаң үйдің іргесіне сәйкес өлшемді ала отырып салыңдар (5.5-сурет)...
KPY3 KPY3  30.04.2020 07:10
Вариант1) Поиск последнего минимального элементаМассив А из 10 элементов заполнить целыми случайными числами от 1 до 9. Найти последний минимальный элемент.Что следует изменить...

Популярные вопросы