var n, s: integer;. while n <= 7 do begin. write(s). var n, s: integer;. while n <= 8 do begin. write(s). var n, s: integer;. while n <= 13 do begin. write(s). var n, s: integer;. while n <= 20 do begin. write(s). for n:=1 to 100 do. for n:=1

⇐ ПредыдущаяСтр 3 из 5Следующая ⇒

var n, s: integer;

begin

n := 3;

s := 0;

while n <= 7 do begin

s := s + n;

n := n + 1

end;

write(s)

end.

12) Определите, что будет напечатано в результате работы следующего фрагмента программы:

var n, s: integer;

begin

n := 4;

s := 0;

while n <= 8 do begin

s := s + n;

n := n + 1

end;

write(s)

end.

13) Определите, что будет напечатано в результате работы следующего фрагмента программы:

var n, s: integer;

begin

n := 4;

s := 0;

while n <= 13 do begin

s := s + 15;

n := n + 1

end;

write(s)

end.

14) Определите, что будет напечатано в результате работы следующего фрагмента программы:

var n, s: integer;

begin

n := 1;

s := 0;

while n <= 20 do begin

s := s + 33;

n := n + 1

end;

write(s)

end.

1) Значения двух массивов A[1..100] и B[1..100] задаются с помощью следующего фрагмента программы:

for n:=1 to 100 do

A[n] := n - 10;

for n:=1 to 100 do

B[n] := A[n]*n;

Сколько элементов массива B будут иметь положительные значения?

2) Все элементы двумерного массива A размером 10х10 элементов первоначально были равны 0. Затем значения элементов меняются с помощью вложенного оператора цикла в представленном фрагменте программы:

for n:=1 to 4 do

for k:=n to 4 do begin

A[n,k] := A[n,k] + 1;

A[k,n] := A[k,n] + 1;

end;

Сколько элементов массива в результате будут равны 1?

3) Значения двумерного массива задаются с помощью вложенного оператора цикла в представленном фрагменте программы:

for n:=1 to 5 do

for k:=1 to 5 do

B[n,k] := n + k;

Чему будет равно значение B[2,4]?

4) Дан фрагмент:

for n:=l to 6 do

for m:=l to 5 do begin

C[n,m]:=C[n,m]+(2*n-m);

end;

Чему будет равно значение С[4,3], если перед этими командами значение С[4,3]=10?

5) Значения элементов двух массивов А и В размером 1 х 100 задаются с помощью следующего фрагмента программы:

for i:=1 tо 100 do

A[i] := 50 – i;

for i:=1 tо 100 do

B[i] := A[i] + 49;

Сколько элементов массива В будут иметь отрицательные значения?

6) Значения элементов двумерного массива А были равны 0. Затем значения некоторых элементов были изменены (см. представленный фрагмент программы):

⇐ Предыдущая 1 234 5 Следующая ⇒