Ребзя, ? номер 2, 6. последовательность действий, а еще лучше, если кто-то знает про таблицу, по типу за 1 раз, за 5 раз, всего
202
294
Ответы на вопрос:
Const maxn = 4; maxm = 5; type myarr = array [1..maxn, 1..maxm] of longint; var a: myarr; sum, i, j: longint; begin for i : = 1 to 4 do begin for j : = 1 to 5 do begin a[i, j] : = i * j; write(a[i, j], ' '); end; writeln; end; sum : = 0; for j : = 1 to 5 do begin for i : = 1 to 4 do if (a[i, j] mod 3 = 0) then sum : = sum + a[i, j]; writeln('сумма чисел, кратных 3, в ', j, ' столбце равна ', sum); sum : = 0; end; end.
Популярно: Информатика
-
olenapolova426.10.2021 04:54
-
diiii214.03.2021 01:31
-
andrewlitvinov408.08.2021 04:41
-
GiftOfDeath01.12.2020 09:50
-
sqerrr29.01.2022 04:22
-
Глеб041703.04.2023 04:31
-
KseniaДьявол20.12.2020 23:44
-
aminyshaa23.01.2022 21:25
-
филя2424.09.2022 00:07
-
юля275930.03.2021 20:38