Тема: Pascal, цикл з передумовою; Задано ціле число. Знайти суму цифр у записі числа.
Ответы:
09-12-2017 20:34
//Pascal ABC.NET v3.1 сборка 1172Var n,c,s:integer;begin read(n); while n<>0 do begin c:=n mod 10; s:=s+c; n:=n div 10; end; writeln(s);end.Пример ввода:123Пример вывода:6
Также наши пользователи интересуются:
Пожалуйста, очень срочно надоПОМОГИТЕ!!!!!ПОЖАЛУЙСТА!!!!1. Самолет при движении по дорожке аэродрома имеет средне?
⭐⭐⭐⭐⭐ Лучший ответ на вопрос «Тема: Pascal, цикл з передумовою; Задано ціле число. Знайти суму цифр у записі числа.» от пользователя Ангелина Стоянова в разделе Информатика. Задавайте вопросы и делитесь своими знаниями.
Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!