4 декабря, 12:22

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

+1
Ответы (1)
  1. 4 декабря, 12:35
    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. ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы
Новые вопросы по информатике