Найти количество элементов, сумма которых является четным числом - Free Pascal
Формулировка задачи:
Дана целая квадратная матрица порядка n. Найти количество элементов, сумма которых является четным числом, а хотя бы один из индексов нечетен.
Ошибки в помеченных (!) пунктах.
Не судите строго если ошибки в моих незнаниях, я только начинаю)
Вывод writeln ещё не написал, пока так.
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.
Решение задачи: «Найти количество элементов, сумма которых является четным числом»
textual
Листинг программы
if (y mod 2 = 0) and (i mod 2 = 1) then...
Объяснение кода листинга программы
В данном коде проверяется условие, что число y является четным (т.е. y % 2 = 0), а число i - нечетным (т.е. i % 2 = 1). Если это условие выполняется, то выполняется блок кода, который идет после этого условия. В данном случае, этот блок кода отсутствует, поэтому ничего не происходит. Список элементов кода:
- Проверка условия (y mod 2 = 0) и (i mod 2 = 1)
- Блок кода, выполняющийся при выполнении условия
- В данном случае блок кода отсутствует, поэтому ничего не происходит
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д