Информатика

Рипа

28 октября, 00:41

Пусть задана квадратная матрица А размера N * N (где N=7). В программе, написанной на языке Pascal, производится обработка в соответствии с программой:

const N=7;

VAR I, K:integer;

R, P:real;

A:array[1 ... N, 1 ... N] of real;

begin

K:=0;

R:=0;

while K begin

for I:=1 to N-K do

begin

R:=R+1;

A[I, I+K]: = R;

end;

K: = K+1;

end;

P: = A[3,7];

writeln (P) ;

end.

Чему будет равно значение переменной Р по окончании выполнения программы?

В ответе запишите только полученное число без пробелов и каких-либо знаков препинания.