Написать программу на паскале , вычесление суммы цыфр натурального числа n

Ответы

AndruxaS 26.06.2020 11:21

Var
    n, s: integer;

begin
    read(n);
    while n > 0 do
    begin
        s := s + n mod 10;
        n := n div 10;
    end;
    writeln(s);
end.

ПОКАЗАТЬ ОТВЕТЫ

Другие вопросы по теме Информатика

Radmir5689 19.09.2019 12:20

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

Атабек111111 17.11.2020 07:44

СДАВАТЬ ЧЕРЕЗ 10 МИНУТ Установи соответствие между уравнением реакции и свойством серы в ней....

samwwww 25.08.2019 12:30

Выберите команды присваивания где допущены ошибки? var a,b: integer; a) a: =b+7 b) a-b: =4 c) b: =a d) a: =-7...

кура000 25.08.2019 12:30

Сколько ячеек входит в диапозон а12: в14...

Dianaspbrf 05.10.2019 18:20

Отметьте штриховкой на координатной плоскости область, в которой и только в которой данное логическое выражение имеет значе- ние true. если граница входит в область, то обозначать...

Breake090 05.10.2019 18:20

Сколько раз будут выполнены операторы в цикле? a=5 b=1 while a * b 8: a = a +2 b = b*2 r = b - 3 print (r)...

Alina2496 27.04.2021 10:32

Что было бы правильно сделать с карьером, где завершилась добыча полезных ископаемых?Залить его водойЗасыпать горными породамиОставить заброшеннымИспользовать под мусорную свалку...

mariabilyk2005 27.04.2021 10:32

1. Особенность научного стиля речи. 2. Одна из важнейших черт научного стиля.3. Книга, написанная научным стилем, которой пользуются для получения справочнойинформации в той...

SemenBio 27.04.2021 10:32

Перекласти укр. мовою: 64 сантиметра, 572 ученика, 2 дома, 4 дня, 3 года, 0,7 процента...

NiKoN044 27.04.2021 10:32

Закінчіть рівняння реакцій H²O+Na²O =...

Написать программу на паскале , вычесление суммы цыфр натурального числа n

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