Дана матрица А(m,n).Вычислите сумму тех элементов,которые делятся на 3 без остатка. Составьте, пожалуйста, программу!помогите .....
10-11 класс
|
var arr:array[1..100,1..100] of longint;
n, m, i, j, k:longint;
begin
read(n, m);
for i:= 1 to n do
for j := 1 to m do
begin
read(arr[i][j]);
if (arr[i][j] mod 3 = 0) then
k := k + arr[i][j];
end; writeln(k);
end.
Другие вопросы из категории
(для обозначения инверсии используется знак # перед переменной, например, #h означает h с инверсией, для обозначения логического сложения и умножения используются знаки "+" и "*"
Читайте также
написать программу, которая отвечает на вопрос " существуют ли два последовательных числа, не превосходящих N, сумма цифр каждого из которых делится на k?"
Входные данные: Два числа N(1<=N<=10000000000),k (1<=k<=100)
Выходные данные: Программа выводит два таких числа, если они существуют,"NO"- если нет.
которая отвечает на вопрос: "Существуют ли два последовательных числа, не превосходящих , сумма цифр каждого из которых делится на ?"
Входные данные. Два числа
Выходные данные. Программа выводит два таких числа, если они существуют, "NO" - если нет.
Посчитать сумму первых 10 чётных чисел.(те которые делятся на 2 без остатка)
массива,сумма индексов которых равна s
вывести слово «нет». Пример. N = 12 345, М = 12360. Число 12 360 делится на число 15 — сумму цифр числа N