Тест по теме "Язык программирования Паскаль"

begin

j:=j+1;

if j=0 then a:=1 else a:=1/j;

s:=s+a

end;

write(‘j=’,j,’ s=’,s);

Варианты ответов:

1. j=1 s=1

2. j=2 s=0.5

3. j=2 s=1.5

4. j=2 s=1

Вопрос №: 5

Какое логическое выражение нужно вписать во фрагмент программы,

определяющий индекс первого элемента массива P[1..N], не равного x?

m:=0;

for i:=1 to N do

if _________ then m:=i;

Варианты ответов:

1. P[i]x

2. P[i]=x

3. P[i]x

4. i

Вопрос №: 6

Дана программа на языке Паскаль:

program abx;

var n,i,s:integer;

begin

n:=15;

s:=0;

for i:=7 to n do

if i mod 7 =0

then s:=s+i;

writeln(s)

end.

В результате выполнения этой программы будет выведено…

Варианты ответов:

1. 7

2. 21

3. 2

4. 14

Вопрос №: 7

Дана программа на языке Паскаль:

program abx;

var x:integer;

begin

readln(x);

if x mod 2 =0

then writeln(‘да’)

else writeln(‘нет’);

end.

При каком значении x (из представленных ниже) будет получен ответ «да»?

Варианты ответов:

1. 7

2. 3

3. 15

4. 4

Вопрос №: 8

Чему будет равно k после исполнения фрагмента программы:

k:=1;

while (a[k]x) and (k