Дана программа, написанная на языке Pascal, формирующая квадратный массив и заполняю
Дана программа, написанная на языке Pascal, формирующая квадратный массив и заполняющая его по определённым правилам. Чему будет равно значение переменной Р по окончании выполнения программы?
const N=7;
var i, К:integer;
R, P:real;
A:array[1..N,1..N] of real;
beginK:=0; R:=0; while K<N do 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. А) 17 Б) 22 В) 25 Г) 28
Гость
Ответ(ы) на вопрос:
Гость 1. После первого begin добавьте перевод строки. Иначе программа работать не будет.
2. Результат P = 25
Ответ: вариант В
Не нашли ответ?
Похожие вопросы