3 раза.
После первого прохождения цикла
s=2; k=2;
после 2 прохождения цикла
s=5; k=3;
после 3 прохождения цикла
s=9; k=4;
при следующей проверки условие s<=7 не выполниться так как s>7
Const
n = 5;// количество элем массиваvar
a: array [1..n] of integer;
sum, i: integer;begin
for i := 1 to n do
readln(a[i]);
for i := 1 to n do
if a[i] = i then
sum := sum + a[i];
writeln(sum);
end.
128 бит=16 байт
40960=5 кбайт
875байт=7000 бит
1,5кбайт=1536 байт
2мбайты=2048 кбайт
1,5мбайт=1572864 байт
1/16мбайт=9730785,28 бит
===== PascalABc.NET ======
begin
for var i := 0 to 10 do
Writeln(i:2, 3*i*i-4*i+2:6)
end.