Задать вопрос

Найти сумму цифр трёхзначного числа (решение задач необходимо выполнить на языке программирование Паскаль)

+1
Ответы (1)
  1. 19 апреля, 11:54
    0
    program zz1;

    var s, n, k:integer; / / задаем переменные целого типа

    begin

    write (' введите трехзначное число ');

    read (n); / / вводим с клавиатуры заданное трехзначное число

    s:=0; / / задаем начальное значение для суммы

    while n>0 do / / организуем цикл, пока в числе есть цифры

    begin

    k:=n mod 10; / / получаем последнюю цифру трехзначного числа

    s:=s + k; / / прибавляем ее к сумме

    n:=n div 10; / / отбрасываем ее из числа

    end;

    writeln (' сумма цифр трехзначного числа = ', s); / / выводим ответ

    end.
Знаешь ответ на этот вопрос?
Сомневаешься в правильности ответа?
Получи верный ответ на вопрос 🏆 «Найти сумму цифр трёхзначного числа (решение задач необходимо выполнить на языке программирование Паскаль) ...» по предмету 📕 Информатика, используя встроенную систему поиска. Наша обширная база готовых ответов поможет тебе получить необходимые сведения!
Найти готовые ответы
Похожие вопросы информатике
Дано натуральное число: определить а) количество цифр в нем б) сумму его цифр в) произведение его цифр г) среднее арифметическое его цифр д) сумму квадратов его цифр е) сумму кубов его цифр ж) его первую цифру з) сумму его первой и последней цифр
Ответы (1)
1. С клавиатуры вводится 3 числа. Найти сумму только из положительных чисел. (Тема: Программирование ветвлящихся и цепленных алгоритмов) 2. Дано двухзначное число, найти сумму и произведение его чисел.
Ответы (1)
Дан ряд двузначных натуральных чисел. Из него вычёркивают числа, состоящие из одинаковых цифр. Составить алгоритм и описать его на доступном вам языке программирование (Basic, Паскаль, Си), позволяющий по заданному номеру N вывести соответствующее
Ответы (1)
Составте программу, вычисления суммы цифр трёхзначного числа а. Значение а введите с клавиатуры Пример ввода: 375 Пример вывода: Сумма цифр числа 375 равна 15 2) Составте программу, которая получает 'перевёртыш' трёхзначного числа а.
Ответы (1)
Найти все двузначные числа, которые кратны числу N (программирование паскаль)
Ответы (1)