Найдите количество чётных и нечётных чисел в задаче приведённой ниже. Заранее спасибо
Answers & Comments
Eiring
//объяви целочисленные переменные в var с названиями chet, nechet for i := 1 to 4 do for j := 1 to 4 do if M[i, j] mod 2 = 0 then chet := chet + 1 else nechet := nechet + 1; writeln('Кол-во чётных = ', chet); writeln('Кол-во нечётных = ', nechet);
Answers & Comments
for i := 1 to 4 do
for j := 1 to 4 do
if M[i, j] mod 2 = 0 then chet := chet + 1
else nechet := nechet + 1;
writeln('Кол-во чётных = ', chet);
writeln('Кол-во нечётных = ', nechet);