Нужна ! написать программу в кумире,которая меняет главную и побочную диагональ матрицы размером 3х3.

178

289

Посмотреть ответы 2

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

клубничка188

Информатика

4,7(75 оценок)

Программу написал hrashton. я немного изменил алг нач целтаб арр[1: 3, 1: 3] цел к, п, ш нц для ш от 1 до 3 нц для к от 1 до 3 арр[ш, к] : = int(rnd(900)+100) вывод арр[ш, к], ' ' кц вывод нс кц нц для ш от 1 до 3 если ш< > 2 то п : = арр[ш, 1] арр[ш, 1] : = арр[ш, 3] арр[ш, 3] : = п все кц вывод нс, нс нц для ш от 1 до 3 нц для к от 1 до 3 вывод арр[ш, к], ' ' кц вывод нс кц кон

eerihovp08oqz

Информатика

4,5(27 оценок)

Var i, s, p : integer; beginwrite ('n='); readln (n); s: =0; p: =1; for i: =1 to n do begin if i mod 5=0 then s: =s+i; if i mod 3=0 then p: =p*i end; writeln ('s=', s, ' p=', p)end.2) var i, s, p : integer; beginwrite ('n='); readln (n); s: =0; p: =1; i: =1 while i< = n do begin if i mod 5=0 then s: =s+i; if i mod 3=0 then p: =p*i; i: =i +1; end; writeln ('s=', s, ' p=', p)end.