7 декабря, 06:53

С клавиатуры вводится целое положительное число. Определить сколько в нем цифр и найти сумму цифр этого числа паскаль

+2
Ответы (1)
  1. 7 декабря, 07:34
    0
    Var n, sum, count: integer;

    begin

    read (n) ;

    sum : = 0;

    count : = 0;

    while n > 0 do

    begin

    sum : = sum + n mod 10;

    n : = n div 10;

    count : = count + 1;

    end;

    writeln (sum) ;

    writeln (count) ;

    end.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «С клавиатуры вводится целое положительное число. Определить сколько в нем цифр и найти сумму цифр этого числа паскаль ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы
Новые вопросы по информатике
Определите значение переменной "c" после выполнения фрагмента программы: a:=60 b:=10 a: = a-b*3 if a
Ответы (2)
Дана последовательность операторов: a:=1; b:=1; repeat a:=a+1 until a>3; s:=a+b; Сколько раз выполнится "тело цикла" и каким будут значения переменных a, b, s после завершения этой последовательности операторов?
Ответы (1)
После преобразования растрового 256-цветного графического файла в 16-цветный формат его размер уменьшился на 15 Кбайт. Каков был размер исходного файла в Кбайтах? напишите решение и ответ.
Ответы (1)
Установите соответ-ствие между устрой-ствами и их назначе-нием: 1. процессор А. преобразует набор данных в видеосиг-нал 2. сопроцессор Б. Главное вычислительное устройство 3. видеоадаптер В. Применяется для расчетов с плава-ющей точкой 4. шина Г.
Ответы (1)
Опишите пользовательский интерфейс компьютера будущего. Только не как у других! Я буду проверять
Ответы (1)