var sum,n:integer; begin writeln(‘Введите трехзначное число’); readln(n); sum:=(n div 100)+(n div 10 mod 10)+(n mod 10); writeln(‘Сумма цифр числа = ‘,sum); end. Объяснение построчно var sum,n:integer; // Просим компьютер выделить в памяти переменные с именем sum и n типа integer(целые числа). begin // Начало ‘тела’ программы writeln(‘Введите трехзначное число’); // Выводим на экран текст ‘Введите трехзначное число’ readln(n); // Вводим число с клавиатуры и записываем его в переменную n sum:=(n div 100)+(n div 10 mod 10)+(n mod 10); // Суммируем цифры в нашем числе и записываем их сумму в переменную sum. writeln(‘Сумма цифр числа = ‘,sum); // Выводим сумму цифр end. // Конец ‘тела’ программы
Добавить свой ответ Ответить на вопрос
Последние вопросы
Источник: znanija.site
Решаем задачи Абрамян на Паскале. Integer 11
Integer11. Дано трехзначное число. Найти сумму и произведение его цифр.
Нахождение суммы цифр вводимого с клавиатуры натурального трехзначного числа на языке Паскаль
Решение:
Delphi/Pascal
program Integer11 ;
A , Res : Integer ;
Write ( ‘Введите трёхзначное число: ‘ ) ;
Res : = ( A mod 10 ) + ( ( A mod 100 ) div 10 ) + ( A div 100 ) ;
Writeln ( ‘Сумма цифр равна: ‘ , Res ) ;
Res : = ( A mod 10 ) * ( ( A mod 100 ) div 10 ) * ( A div 100 ) ;
Writeln ( ‘Произведение цифр равно: ‘ , Res ) ;
* (A mod 10) — Получаем единицы
(A div 100) — Получаем кол-во сотен
(A mod 100) div 10 — Получаем десятки
Другие задачи из раздела Integer можно посмотреть здесь.
Источник: coolcode.ru
Решу Паскаль
Задача. С клавиатуры вводится натуральное трехзначное число N. Найти сумму его цифр.
Данную задачу можно решать разными способами с использованием различных средств языка программирования.
Вспомним состав числа. В трехзначном числе первая цифра показывает количество сотен, вторая — количество десятков, третья — количество единиц.
Например, N = 297 = 200 + 90 + 7 (2 сотни, 9 десятков и 7 единиц)
Для вычисления количества сотен необходимо число N разделить на 100 и взять целую часть, это будет 2. Чтобы вычислить количество десятков, нужно число N разделить на 100 и взять целый остаток, это будет 97, а затем полученное значение разделить на 10 и взять целую часть, это будет 9. Чтобы вычислить последнюю цифру (количество единиц), нужно число N разделить на 10 и взять целый остаток, это будет 7 (либо полученное число на предыдущем шаге 97 разделить на 10 и взять целый остаток).
Введем обозначения цифр. Пусть a — это сотни, b — десятки, c — единицы.
Операция деления нацело это div, операция деления с остатком это mod.
Тогда выражения для вычисления цифр числа будут такими:
b:=N mod 100 div 10;
Это не единственный путь решения данной задачи с использованием операций div и mod , предложите в комментариях свой способ.
Сумма цифр трехзначного числа. Решение задачи на Python
Для дальнейшего решения задачи необходимо вычислить сумму полученных цифр.
Программа решения задачи на языке Паскаль
print(‘Введите трехзначное натуральное число N:’);
b:=N mod 100 div 10;
println(‘Сумма цифр числа:’,s);
Результат запуска программы
Источник: reshupascal.blogspot.com