Исходное данное - трехзначное число х. выполните алгоритм для нескольких х. х= 141 а : = x div 100 b : = x mod 100 div 10 c : = x mod 10 s : = a+b+c

1. m

2. real

3. 100

4. c

5. 15

6. m[c]

7. нет

8. [5,10]

9. real

10. произведение элементов массива отличных от 0

Объяснение:

m (имя переменной): array (тип переменной - массив) [1..100] ([минимальное значение индекса массива..максимальное значение индекса массива) of real (тип элементов массива)

количество элементов массива = максимальное значение индекса массива - минимальное значение индекса массива + 1

real - вещественный тип

integer - целочисленный тип

random(6) - случайные числа из [0,5]

5 + random(6) - случайные числа из [5,10]

PascalABC.NET

begin

 var (N, k) := ReadInteger2;

 N := N div 100 * 100;

 if N mod k <> 0 then

   N := (N div k + 1) * k;

 Write(N)

end.

Объяснение:

Заменяем две последние цифры числа N нулями, для чего делим его на 100 нацело, а затем результат деления умножаем на 100. Принимаем полученное число за N. Делим это новое значение N нацело на k, затем частное увеличиваем на 1 и умножаем эту сумму на k, получая ответ.

Пример.

N = 3571483, k = 97

N / 100 = 35714: 35714 × 100 = 3571400 - это новое значение N

N / k = 3571400 / 97  ≈ 36818 (остаток ненулевой); 36818 + 1 = 36819;

36819 × 97 = 3574143