• Написать программу которая найдет сумму цифр введенного с клавиатуры трехзначного натурального числа N

Ответы 2

  • program Sum;

    var

        a,b,c,s: integer;

    begin

    WriteLn('Введите числа а,в,с');

    ReadLn(a,b,c);

    s:=a+b+c;

    WriteLn('Сумма чисел равна',s);

    end.

    • Автор:

      joaquin
    • 6 лет назад
    • 0
  • program Sum;

    var

        a,s: integer;

    begin

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

    ReadLn(a);

    While (a div 10>0)

    begin

    s:=s+ (a mod 10 );

    a:=a div 10;

    end

    s:=s+a;

    WriteLn('Сумма чисел равна',s);

    end.

    • Автор:

      buddy5aqb
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years