0 / 0 / 0
Регистрация: 31.05.2021
Сообщений: 9

Дано натуральное число. Определить сумму его цифр, больших a (значение a вводится с клавиатуры, 0<=a<=8)

31.05.2021, 21:23. Показов 2563. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Дано натуральное число. Определить сумму его цифр, больших a (значение a вводится с клавиатуры, 0<=a<=8).

Помогите переделать из Паскаля в c#:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var
  i, d, a, OneDigit: integer;
 
begin
  write('Введите число:');
  read(i);
  write('Введите a: ');
  read(a);
  if (a >= 0) and (a <= 8) then
  begin
    d := 0;
    repeat
      OneDigit := i mod 10; //Берём остаток от деления числа на 10
      if onedigit > a then //Проверяем цифру в переменной OneDigit 
        d := d + OneDigit; //Оставляем число, делённое на 10 - отбрасываем правую цифру
      I := i div 10;
    until I = 0;
    writeln('Сумма цифр заданого числа равна:');
    write(d);
  end;
end.
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
31.05.2021, 21:23
Ответы с готовыми решениями:

Дано натуральное число. Определить сумму его цифр, больших a (значение a вводится с клавиатуры, 0<=a<=8)
Дано натуральное число. Определить сумму его цифр, больших a (значение a вводится с клавиатуры, 0&lt;=a&lt;=8). Помогите переделать из...

Дано натуральное число. Определить сумму его цифр, больших a (значение a вводится с клавиатуры, 0<=a<=8)
Дано натуральное число. Определить сумму его цифр, больших a (значение a вводится с клавиатуры, 0&lt;=a&lt;=8). Помогите переделать из...

Дано натуральное число.Определить:а) сумму его цифр, больших пяти;б) произведение его цифр, больших семи
Дано натуральное число. Определить: (всеми видами циклов, без массивов) а) сумму его цифр, больших пяти; б) произведение его цифр,...

2
11 / 6 / 5
Регистрация: 17.05.2021
Сообщений: 19
31.05.2021, 22:26
Лучший ответ Сообщение было отмечено Changelinger как решение

Решение

Честно, я не знаю Pasсal, но по Вашему условию смог составить следующее решение:
C#
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
public static int Checker(int a, int i)
        {
            if (!(a >= 0 && a <= 8)) // если a меньше 0 или больше 8 - возвращается -1.
                return -1;
 
            int result = new int();
 
            while (i != 0) // пока i не равно 0 будут складываться цифры, которые больше числа a
            {
                if (i % 10 > a) // если цифра больше числа a - складываем в result.
                    result += i % 10;
 
                i /= 10; // уменьшаем число в 10 раз (убираем одну цифру с конца).
            }
 
            return result; // возвращаем результат.
        }
 
        static void Main(string[] args)
        {
            Console.WriteLine("Введите число: ");
            int.TryParse(Console.ReadLine(), out int i);
 
            Console.WriteLine("Введите другое число: ");
            int.TryParse(Console.ReadLine(), out int a);
 
            Console.WriteLine($"Result: {Checker(a, i)}"); // ответ
        }
1
3566 / 2507 / 1174
Регистрация: 14.08.2016
Сообщений: 8,219
31.05.2021, 22:26
C#
1
2
3
4
5
6
7
            Console.Write("input number ");
            var num = Console.ReadLine();
            Console.Write("input a ");
            var a = Console.ReadKey().KeyChar;
            Console.WriteLine();
            var sum = num.Where(x => x - a > 0).Select(char.GetNumericValue).Sum();
            Console.WriteLine(sum);
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
31.05.2021, 22:26
Помогаю со студенческими работами здесь

Дано натуральное число. Определить, сумму его цифр, больших а
Помогите исправить задачу а то не могу разобраться где ошибка. Дано натуральное число. Определить, сумму его цифр, больших а....

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

Дано натуральное число. Определить сумму его цифр
Заранее спасибо

Дано натуральное число. Определить сумму кубов его цифр.
Дано натуральное число. Определить сумму кубов его цифр. C помощью while do Cрочно нужно

Дано натуральное число N. Определить сумму m его последних цифр
Дано натуральное число N. Определить сумму m его последних цифр.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

Новые блоги и статьи
Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)"
Hrethgir 19.04.2026
Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .
Запрет удаления строк ТЧ документа при определенном условии
Maks 19.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .
Модель заражения группы наркоманов
alhaos 17.04.2026
Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .
Мысли в слух. Про "навсегда".
kumehtar 16.04.2026
Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .
My Business CRM
MaGz GoLd 16.04.2026
Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .
Знаешь почему 90% людей редко бывают счастливыми?
kumehtar 14.04.2026
Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД
Maks 14.04.2026
Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .
Настройки VS Code
Loafer 13.04.2026
{ "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru