4. Дан программный код: a=13; b=25; k=0 c=a+b d=c/7/10; c=c%10 k=(a+c) ** 2 print (k) Укажите чему рано значение переменной k после выполнения программы .
Код Pascal1 2 3 4 5 6 7 8 9 10 11 12 begin var Size := ReadLnInteger('Размер массива ='); var A : array of Integer; SetLength(A, Size); for var i := 0 to pred(Size) do A[i] := ReadLnInteger('A[' + (i+1).ToString + '] ='); WriteLn('Введён массив A = ', A); var count := 0; for var i := 0 to pred(Size) do if Not odd(A[i]) then count += 1; WriteLn('В массиве чётных элементов: ', count); var max := 0; for var i := 1 to pred(Size) do if A[max] < A[i] then max := i; var k := ReadLnInteger('k = '); A[max] *= k; WriteLn('Массив A = ', A); end.
Значение k после выполнения программы = 441