Как посчитать сумму цифр числа в паскале
Найти сумму цифр произвольного целого числа.
Число обозначим N , сумму цифр числа S , для общности назначим им тип Longint (длинное целое). Очередную цифру L будем извлекать, беря остаток от деления N на 10: L:=N mod 10 ;
Естественно, после этого обработанную цифру надо убрать из числа N , чтобы не зациклиться: N:=N div 10; . В результате этого действия последняя цифра будет каждый раз отбрасываться, т.е., 345 превратится в 34, а ещё через шаг в 3.
Поскольку в числе должна присутствовать хотя бы 1 цифра, используем цикл с постусловием repeat . Условием выхода из него может служить неравенство |N| (осталась 1 цифра). При этом нужно не забыть про последнюю цифру числа.
А впрочем, с условием n=0 тоже всё прекрасно должно работать и отдельный учёт последней цифры не нужен, можно обойтись вообще такой вот короткой версией (исключены также проверки корректности):
На Си, конечно, всё равно красивей:
Следует только помнить, что Си, в отличие от Паскаля, не будет «ругаться» на слишком большое число, например, превышающее значение константы MAXLONG , равное 2 147 483 647 — просто введено будет не то значение, которого Вы ожидали.
Напишите программу,которая считает сумму цифр введенного числа (паскаль)
Programи fr;
var a, sum: integer;
Begin
Writeln (‘Введите число’);
Readln (a);
while a<>0 do
begin
sum:=sum+(a mod 10);
a:=a div 10;
end;
Writeln (‘Сумма цифр ‘,sum);
end.
Почему используется вот такая запись ( что это значит ) — sum:=sum+(a mod 10) .
Можно ли написать эту программу как то через другой цикл? ( если да,то напишите его)
Знаешь ответ? Добавь его сюда!
Ответить на вопрос
Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.
Составить предложения в Present Cont о том, что ваша мама, папа, бабушка, дедушка и вы делаете в канун нового года. К каждому придумать по 3 предложения. Итого у вас должно получится 15 предложений! Использовать можно фразы только уч: стр 46 упр 1. Другие фразы использовать НЕЛЬЗЯ. Если вы не помните, какой глагол ставить впереди, то используйте словарь в конце учебника стр WL5. Пример: Mum is doing the dusting; Grandma is doing the washing-up. 2) Уч: стр 46 упр 2 — контрольное чтение письма. 3) Из письма выписать все предложения, где есть PRESENT Cont..
Помогите пожалуйста не могу понять как сделать, решение с дано, буду очень благодарен ��
Решение задач. День шестой. Задачи Integer 11-20
Здравствуйте, дорогие читатели и юные поклонники программирования. Что является важнейшим этапом изучения программирования? Решение задач! Именно этим мы с вами сегодня и займемся. Целых десять задач Integer11-20. Если для вас эти задачи уже слишком легки, вы решаете их с закрытыми глазами и уже чувствуете, что готовы к следующему этапу обучения, то вам следует приготовиться. Следующий урок будет про особенности PascalABC.NET. Но не волнуйтесь, вместе с нами вы познаете почти все тонкости Паскаля в его современной интерпретации.
Integer11°. Дано трехзначное число. Найти сумму и произведение его цифр.
Integer12. Дано трехзначное число. Вывести число, полученное при прочтении исходного числа справа налево.
Integer13. Дано трехзначное число. В нем зачеркнули первую слева цифру и приписали ее справа. Вывести полученное число.
Integer14. Дано трехзначное число. В нем зачеркнули первую справа цифру и приписали ее слева. Вывести полученное число.
Integer15. Дано трехзначное число. Вывести число, полученное при перестановке цифр сотен и десятков исходного числа (например, 123 перейдет в 213).
Integer16. Дано трехзначное число. Вывести число, полученное при перестановке цифр десятков и единиц исходного числа (например, 123 перейдет в 132).
Integer17. Дано целое число, большее 999. Используя одну операцию деления нацело и одну операцию взятия остатка от деления, найти цифру, соответствующую разряду сотен в записи этого числа.
Integer18. Дано целое число, большее 999. Используя одну операцию деления нацело и одну операцию взятия остатка от деления, найти цифру, соответствующую разряду тысяч в записи этого числа.
Integer19. С начала суток прошло N секунд (N — целое). Найти количество полных минут, прошедших с начала суток.
Integer20°. С начала суток прошло N секунд (N — целое). Найти количество полных часов, прошедших с начала суток.
Вот и все, дорогие друзья! Ждите новые уроки и заходите к нам на сайт почаще. Если вам понравилась эта статья, обязательно расскажите о нас вашим друзьям из любой социальной сети, может быть, они тоже хотят стать великими программистами!
Ввести целое число и найти сумму его цифр(1234)Паскаль
program zz1;
var a, n, s : integer; //задаем переменные целого типа
begin
write(‘введите заданное число n ‘);
read(n); // вводим заданное число с клавиатуры
while n > 0 do // организуем цикл, пока в заданном числе имеются цифры
begin
a := n mod 10; // получаем последнюю цифру заданного числа
n := n div 10; // отбрасываем последнюю цифру заданного числа
s := s + a; // прибавляем полученную последнюю цифру к сумме
end;
writeln(‘сумма цифр заданного числа = ‘,s); // выводим ответ
end.