Регистрация
ясин9595
15.09.2022 03:36
Информатика
Есть ответ 👍

Создать двумерный массив целых чисел из диапазона [-50,50] размером 9х9. вывести на экран. найти сумму элементов ячеек с четной суммой коэффициентов и сумму элементов ячеек с нечетной суммой коэффициентов. сравнить. если сумма ячеек с четной суммой коэффициентов больше, то транспонировать матрицу, если меньше – возвести в квадрат. при равных значениях – обнулить. результат показать на экран.сделать на с++

176
202
Посмотреть ответы 1

Ответы на вопрос:

MrDackes
MrDackes
4,7(69 оценок)
1.1)var n,i: integer; begin writeln('введите число n'); readln(n); for i: =1 to n do begin if (i mod 12=0) then write(i,' '); end; end. 1.2)var n,i: integer; begin writeln('введите число n'); readln(n); i: =1; while (i< =n) do begin if (i mod 12=0) then write(i,' '); i: =i+1; end; end.1.3)var n,i: integer; begin writeln('введите число n'); readln(n); i: =1; repeat if (i mod 12=0)then write(i,' '); i: =i+1; until (i> n); end. 2.1)var n,i,s: integer; begin s: =0; writeln('введите число n'); readln(n); for i: =1 to n do beginif (i mod 6=0)then s: =s+i; end; writeln('сумма равняется ',s); end.2.2)var n,i,s: integer; begin s: =0; writeln('введите число n'); readln(n); i: =1; while (i< =n) do begin if (i mod 6=0) then s: =s+i; i: =i+1; end; writeln('сумма равняется ',s); end.2.3)var n,i,s: integer; begin s: =0; writeln('введите число n'); readln(n); i: =1; repeat if (i mod 6=0) then s: =s+i; i: =i+1; until (i> n); writeln('сумма равняется ',s); end.

Популярно: Информатика