Найти количество элементов, сумма которых является четным числом - Free Pascal

Узнай цену своей работы

Формулировка задачи:

Дана целая квадратная матрица порядка n. Найти количество элементов, сумма которых является четным числом, а хотя бы один из индексов нечетен.
const n=3;
Type Tind=1..n;
Tmatr=array[Tind,Tind] of integer;
var a:Tmatr;
var y,i,j,s,x,t:integer;
begin
        for i:=1 to n do
        for j:=1 to n do readln(a[i,j]);
        for i:=1 to n do
        for j:=1 to n do begin
                y:=0;
                x:=a[i,j];
                while x<>0 do begin
                y:=y + x mod 10;
                x:=x div 10;
                end;
                t:=0;
                if y mod 2 (!)= 0 and i mod 2 = 1 then t:=1; //incompatible types: got "Boolean" expected "LongInt"
                if y mod 2 (!)= 0 and j mod 2 = 1 then t:=1; //incompatible types: got "Boolean" expected "LongInt"
                if t=1 then s:=s+1;
                end;
end.
Ошибки в помеченных (!) пунктах. Не судите строго если ошибки в моих незнаниях, я только начинаю) Вывод writeln ещё не написал, пока так.

Решение задачи: «Найти количество элементов, сумма которых является четным числом»

textual
Листинг программы
if (y mod 2 = 0) and (i mod 2 = 1) then...

Объяснение кода листинга программы

В данном коде проверяется условие, что число y является четным (т.е. y % 2 = 0), а число i - нечетным (т.е. i % 2 = 1). Если это условие выполняется, то выполняется блок кода, который идет после этого условия. В данном случае, этот блок кода отсутствует, поэтому ничего не происходит. Список элементов кода:

  1. Проверка условия (y mod 2 = 0) и (i mod 2 = 1)
  2. Блок кода, выполняющийся при выполнении условия
    • В данном случае блок кода отсутствует, поэтому ничего не происходит

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

6   голосов , оценка 4 из 5
Похожие ответы