4 года назад

Среди всех двузначных чисел указать те, сумма цифр которых равна числу К.

1 ответ:

Gaara4 года назад

0 0

Var i,k:integer;
begin
write('k = ');
readln(k);
writeln('Числа, сумма цифр которых = ',k);
for i:=10 to 99 do
if i div 10+i mod 10=k then writeln(i);
end.

Пример:
k = 15
Числа, сумма цифр которых = 15
69
78
87
96

Читайте также

Помогите с массивом c# В одномерном массиве нужно удалить элементы, стоящие между максимальным отрицательным и минимальным полож

milontrop

Private static int[] DeleteSomethingInArray(int[] a)
        {
            Debug.Assert(a.Length > 1 && a.Any(x => x > 0) && a.Any(x => x < 0)); // это просто проверка, можно удалить или закоментировать
            if (a.Length == 2)
                return a;

            var max_i = -1;
            var min_i = -1;
            for (var i = 0; i < a.Length; i++)
            {
                if (a[i] < 0 && (max_i < 0 || a[max_i] < a[i]))
                    max_i = i;
                if (a[i] > 0 && (min_i < 0 || a[min_i] > a[i]))
                    min_i = i;
            }

            var result = new int[a.Length - Math.Abs(max_i - min_i) + 1];

            var j = 0;
            for (var i = 0; i < a.Length; i++)
            {
                if (i <= Math.Min(max_i, min_i) || i >= Math.Max(max_i, min_i))
                    result[j++] = a[i];
            }

            return result;
        }

На всякий случай в заголовках
using System;
using System.Diagnostics;
using System.Linq;

0 0

3 года назад

Дано действительное число A. Не пользуясь никакими другими арифметическими операциями, кроме умножения, получить a5 за 5 операци

Игорь818

1. a :=x•x(1-умножение. a=x^2)
2. b :=x•a(2-умножение. b=x^3)
3. c :=b•b(3-умножение. c=x^6)
4. d :=c•c(4-умножение. d=x^12)
5. e :=d•d(5-умножение. e=x^15)

0 0

4 года назад

9 класс!!! срочно! КАКИЕ СВОЙСТВА РЕАЛЬНЫХ объектов воспроизводят следующие модели:1) муляжи продуктов в витрине магазина2) чуче

Rrayo [21]

Размер, форма . нет?

0 0

4 года назад

В шкатулке лежит 16 шаров, из которых 6 черные, 4 красные, остальные зелёные. Из шкатулки извлекли красный шар, посетили и полож

kolezanka

16 бит........................................

0 0

4 года назад

Информатика 1100011²-10111² с решением

IrinaVM

1100011-10111=1001000

0 0

4 года назад