Определите значение переменной а после выполнения программы: * а: =123 b: = a div 10 b: =b/4+2 b: =b*25 +2 a: =a+b
159
170
Ответы на вопрос:
Const nmax = 99; var i, n, k, s: integer; a: array[1..nmax] of integer; begin randomize; write('введите количество элементов массива (1-99)'); readln(n); write('введите число k '); readln(k); writeln('исходный массив'); s : = 0; for i : = 1 to n do begin a[i] : = random(98) + 1; write(a[i]: 3); if (a[i] mod k) = 0 then s : = s + a[i] end; writeln(#13#10, 'сумма элементов, кратных ', k, ' равна ', s) end. тестовое решение: введите количество элементов массива (1-99)12 введите число k 3 исходный массив 34 63 18 81 91 83 83 80 10 59 81 74 сумма элементов, кратных 3 равна 243
Популярно: Информатика
-
Bibi12345617.11.2021 02:42
-
ayazhan10yearsold12.05.2021 16:23
-
ilonctik20.02.2020 02:55
-
роман50915.09.2021 02:27
-
yanix202007.03.2020 23:25
-
Larisa15030109.10.2020 14:39
-
MariaUralova20.10.2021 14:12
-
пипканегра30.10.2022 20:22
-
krivonogikhlyuba27.03.2022 03:59
-
f0xsick06.11.2021 08:44