на паскале: var a,x: integer; i,s: integer; begin writeln('введите целое число: '); readln( a ); x: =a; s: =0; while ( x< > 0 ) do begin s : = s + (x mod 10); x : = x div 10; end; writeln( 'сумма цифр числа ',a,' = ', s ); end.
shugayzhanna6
18.01.2020
Всовременном мире уже невозможно представить себе жизнь без компьютеров. они встречается нам повсюду: нас в любые поездки, нам в работе с различными документами, являются хранителями множества информаций о нас самих. большая половина из нас постоянно находится в виртуальном мире играя в игры, просиживая свое время в социальных сетях, читая книги или же просто пересматривая фотографии, который опять таки хранит в себе ваш компьютер. если хотя бы на месяц лишить себя любимого ноутбука, то большинство людей просто засохнет от великой тоски, ибо зависимость от этого предмета становится день от дня просто ошеломляющей. я попыталась представить себе каким будет компьютер будущего. ну во -первых, самая моя большая надежда на доступные высокие технологии – это путешествия во времени. и именно компьютер будет абсолютно каждому человеку совершить такой поход. в каждом компьютере будет особенная программа с различными временами и эпохами. останется только сделать выбор и вот ты уже вместе с первобытными людьми бегаешь за мамонтами, участвуешь в одной из средневековых войн или же с кучей фанатов визгом встречаешь «the beatles». на такие путешествия не нужен будет лимит и в скором времени это станет более чем обычным явлением. мы перестанем видеть в этом что-то нечто фантастическое и через пару месяцев будем возвращаться назад, в свое будущее, для того, чтобы исправить какие-либо проступки совершенные нами по глупости и неосторожности. компьютер станет самым главным в бытовых делах. его можно будет программировать на выполнение всех дел. экран к примеру будет мыть пол, процессор посуду, а колонки вести разговор с вами же. вообще все те дела, которые человеку выполнять не особо приятно будет делать компьютер. помимо путешествия во времени мы сможем иметь и вот такую возможность – в живую играть в любимые игры. ну к примеру, заходим мы в симс, и сканируя себя сканером попадаем в игру и играем в нее. все это, конечно, кажется сейчас фантастическим. но пройдет десять лет, и кто знает, может быть все это сбудется?
алг сумма цифр
нач
вывод sumdigits(12345)
кон
алг цел sumdigits(цел n0)
нач
цел sum=0, n
n: =n0
нц пока n< > 0
sum: =sum+mod(n,10)
n: =div(n,10)
кц
знач: =sum
кон
на паскале: var a,x: integer; i,s: integer; begin writeln('введите целое число: '); readln( a ); x: =a; s: =0; while ( x< > 0 ) do begin s : = s + (x mod 10); x : = x div 10; end; writeln( 'сумма цифр числа ',a,' = ', s ); end.