21 ноября, 12:25

Ввести натуральное число и определить, верно ли, что сумма его цифр равна10.

+2
Ответы (1)
  1. 21 ноября, 14:06
    0
    Program G;

    Uses Crt;

    Var summ, x, m, back: integer;

    Begin

    ClrScr;

    Writeln ('Введите натуральное число.');

    Readln (x);

    Summ:=0;

    Back:=x;

    While x>0 do

    Begin

    m:=x mod 10;

    x:=x div 10;

    summ:=summ+m;

    End;

    If summ=10 then Writeln ('Сумма цифр числа ', back, ' равна 10.')

    Else Writeln ('Сумма чисел числа ', back, ' не равна 10.');

    Readln;

    End.
Знаешь ответ?
Не уверен в ответе?
Найди верный ответ на вопрос ✅ «Ввести натуральное число и определить, верно ли, что сумма его цифр равна10. ...» по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Искать другие ответы