Задать вопрос
ИнформатикаИнформатика
3 июля, 01:16

Подсчитать количество (сумму) цифр в записи целого неотрицательного числа. (в паскале авс)

+5
Ответы (1)
  1. 3 июля, 04:46
    0
    Program asd;

    var n, a, b:integer;

    begin read (n) ;

    a:=n;

    while a>0 do begin

    b:=a mod 10+b;

    a:=a div 10;

    end;

    writeln (b) ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Подсчитать количество (сумму) цифр в записи целого неотрицательного числа. (в паскале авс) ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Главная » Информатика » Подсчитать количество (сумму) цифр в записи целого неотрицательного числа. (в паскале авс)
Регистрация Забыл пароль