Напишите программу,которая считает сумму цифр введенного числа (паскаль) Programи fr; var a, …
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) .
Можно ли написать эту программу как то через другой цикл? ( если да,то напишите его)
Напишите программу,которая считает сумму цифр введенного числа (паскаль)
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) .
Можно ли написать эту программу как то через другой цикл? ( если да,то напишите его)
Программа нахождения суммы всех цифр данного числа
Данная программа должна вывести сумму всех цифр, из которых состоит введенное число.
Решение задачи
- Возьмем введенное число и запишем его в переменную.
- При помощи цикла while извлечем каждую цифру из данного числа и запишем их сумму в отдельную переменную.
- Выведем полученный результат на экран.
- Конец.
Исходный код
Ниже дан исходный код для вывода суммы всех цифр, из которых состоит данное число. Результаты работы программы также даны ниже.
Объяснение работы программы
- Пользователь вводит число, которое записывается в переменную.
- Используем цикл while . Цифры извлекаются из числа при помощи оператора деления по модулю, начиная с конца.
- Далее записываем эту цифру в отдельную переменную и потом, в процессе работы цикла, прибавляем к ней остальные цифры числа.
- После суммирования цифра «уничтожается» при помощи оператора целочисленного деления.
- Когда число становится равным 0 (все цифры были обработаны и «уничтожены»), цикл завершает свою работу.
- После этого полученная сумма выводится на экран.
Результаты работы программы
Английский для программистов
Наш телеграм канал с тестами по английскому языку для программистов. Английский это часть карьеры программиста. Поэтому полезно заняться им уже сейчас