Найти сумму значащих цифр,превышающих 5.паскаль с оператором while

Показать ответ

Ответ:

Mashka063

04.08.2020 09:39

Var
n,sum:integer;
begin
Readln(n);
while n > 0 do
begin
    if n mod 10 > 5 then
      sum:= sum + n mod 10;
    n:= n div 10;
end;
writeln(sum);
end.

Пример:
135483
8

0,0(0 оценок)

Популярные вопросы: Информатика

nikitacRon

18.03.2023 13:11

Решите две по информатике(паскаль) обработать последовательность из n чисел,которые пользователь введёт с клавиатуры.вычислить: количество отрицательных чисел минимальное число...

monyachina1081p08tm7

11.01.2023 07:05

Сколько костюмов в ателье могут сшить, если на один костюм уходит 3 квадратных метра ткани. Размер исходного куска ткани Пользователь вводит с клавиатуры, его ширина а сантиметров...

Lola1555

11.01.2023 07:05

Ниже представлены два фрагмента таблиц из базы данных о жителях микрорайона. Каждая строка таблицы 2 содержит информацию о ребёнке и об одном из его родителей. Информация представлена...

elizaveta871

22.05.2021 18:42

Из деревни Абрамцево в Рыкино ведут три дороги. А из Рыкина в Колино -четыре дороги. Сколькими можно проехать из села Абрамцево в Колино через Рыкино. Изобразите схему и граф...

YounMing

27.12.2021 08:55

В этой задаче требуется проверить, есть ли в числе N две цифры 6?Формат входных данныхДано целое число N (0 ≤ N ≤ 100 000 000).Формат выходных данныхТребуется вывести «YES», если...

BlaBla552

09.05.2023 16:50

Найдите мощность алфавита, на котором записано сообщение, содержащее 4096 символов, если его объём – 1/256 часть одного килобайта. (приступая к решению , необходимо помнить следующее:...

mmaxprophet

14.02.2022 05:26

отметь характеристики предметов и явлений, которые человек воспринимает при органов обоняния. цветочный теплый звонкий кислый мягкий ароматный красный приторный...

голозавр

22.02.2020 12:05

Спо информатике 9 класс (с решением, )...

Lyrryface

12.01.2020 14:16

ПИТОН Заполните массив случайными числами. Определить, есть ли в нем элементы с одинаковыми значениями, не обязательно стоящие рядом. Пример: Массив: 3 2 1 3 2 5 Есть: 3, 2 Пример:...

KatyaKerina

19.02.2023 01:25

как это решать? Перед вами фрагмент программы, обрабатывающей одномерный целочисленный массив A с индексами от 0 до 20. Известно, что в начале выполнения этого фрагмента в массиве...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку