Сколько раз будет выполнен этот цикл ?
i=3
while i<6:
print("Привет!")
i+=1

192

203

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

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

MiladKowalska

Информатика

4,4(9 оценок)

Всего три раза, тк после каждого выведения добавляется единица, а надо меньше 3-х

pankuznetsov

Информатика

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

Var ans: real; n, i, j, kol: integer; a: array of array of real; begin read(n); setlength(a, n+1); for i : = 1 to n do setlength(a[i], n+1); for i: = 1 to n do for j : = 1 to n do read(a[i][j]); for i : = 1 to n do if (a[i][i] > 0) then begin inc(kol); ans : = ans + a[i][i]; end; if (kol > 0) then begin writeln('ср. ар. с гл. диагонали = ', ans / kol); kol : = 0; ans : = 0; end else writeln('элементов > 0 на гл. диагонали - нет ! '); for i : = 1 to n do if (a[i][n-i+1] > 0) then begin inc(kol); ans : = ans + a[i][n-i+1]; end; if (kol > 0) then writeln('ср. ар. с поб. диагонали = ', ans / kol) else writeln('элементов > 0 на поб. диагонали - нет ! '); end.