wayground logo

Free Printable Worksheets

Font size

S
M
L
XL
Worksheets

Программирование на Pascal

Total questions: 16

Worksheet time: 11mins

Name
Class
Date
1.

Что будет выведено на экран в результате выполнения фрагмента программы

a:=5; b:=3;

write( 'Z(', a, ')=', '(', a+b, ')' );

Здесь a и b — целые переменные.

(a)  

2.

Чему будет равна переменная «c» после выполнения этой программы:

a := 22;

b := 4;

c := a mod b + b;

(a)  

3.

Чему будет равна переменная «c» после выполнения этой программы:

a := 22;

b := 4;

b := a div b;

c := a mod (b + 1);

a)

2

b)

6

c)

5

d)

4

4.

Чему будет равна переменная «c» после выполнения этой программы:

a := 28;

b := 7;

b := a mod b;

c := a div (b + 1);

(a)  

5.

Определите значение переменной «a» после выполнения фрагмента программы:

a := 10;

if a < 5 then

a := a + 12

else

a := a - 7;

(a)  

6.

Определите значение переменной «a» после выполнения фрагмента программы:

a := 10;

if a < 5 then a := a + 12

else a := a - 7;

if a < 5 then a := a + 12

else a := a - 7;

(a)  

7.

Определите значение переменной «a» после выполнения фрагмента программы:

a := 10; b := 3;

if a > b then b := b + 12

else a := a - 7;

if a > b then a := a + 12

else a := a - 7;

(a)  

8.

Сколько раз будет выполнен этот цикл?

i:=6;

while i<5 do begin

writeln('Привет!');

i:=i+1;

end;

a)

0

b)

1

c)

2

d)

3

9.

Чему будет равно значение переменной «a» после выполнения этого цикла?

i:=2;

a:=12;

while i<5 do begin

a:=a+i;

i:=i+1;

end;

(a)  

10.

Какое число нужно написать вместо многоточия, чтобы цикл выполнился ровно 3 раза?

i:=...;

while i<=7 do begin

writeln('Привет!');

i:=i+1;

end;

a)

6

b)

4

c)

5

d)

3

11.

Определите значение переменной «a» после выполнения фрагмента программы:

a := 10; b := 5;

if (a > 5) and (a < b) then

a := a - 5;

(a)  

12.

Определите значение переменной «a» после выполнения фрагмента программы:

a := 10; b := 5;

if (a > 1) and (a < b) then

a := a - 5;

if (a > 1) and (a = b) then

a := a - 5;

(a)  

13.

Какую логическую операцию нужно добавить в программу вместо многоточия, чтобы значение переменной «a» после выполнения фрагмента программы стало равно 15?

a := 10; b := 5;

if (a < 1) ... (a > b) then

a := a - 5

else

a := a + 5;

a)

and

b)

or

14.

Чему будет равно значение целой переменной «a» после выполнения этого фрагмента программы?

a:=10;

for i:=0 to 4 do begin

a:=a-i

end;

(a)  

15.

Чему будет равно значение целой переменной «a» после выполнения этого фрагмента программы?

a:=4;

for i:=1 to 2 do begin

a:=a+a

end;

a)

8

b)

16

c)

4

16.

Какое число будет выведено на экран после выполнения этого фрагмента программы?

write(4);

for i:=4 downto 3 do

write(2*i);

(a)