Wayground logo

Free Printable Worksheets

Font size

S
M
L
XL
Worksheets

Паскаль 1

Total questions: 11

Worksheet time: 12mins

Name
Class
Date
1.

Укажите команду присваивания в языке Паскаль...

a)

=

b)

=:

c)

:=

d)

#

2.

Объявление переменных в языке Паскаль начинается после служебного слова ...

a)

var

b)

begin

c)

program

d)

end

3.

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

a:=5;

b:=7;

c:=(a+b)/2;

write('c=',c)

a)

'c='c

b)

c=6

c)

'c=',6

d)

('c=',c)

4.

Как на языке Паскаль будет записано условие: "число кратно 3 и не кратное 4"

a)

(a mod 3 = 0) and (a mod 4 = 0)

b)

(a mod 3 = 0) and (a mod 4<> 0)

c)

(a mod 3 = 0) or (a mod 4 = 0)

d)

(a div 3 = 0) and (a div 4 <> 0)

5.

число больше 20 и заканчивается на 7

a)

(a > 20) and (a mod 7 = 0)

b)

(a > 20) or (a mod 10 = 7)

c)

(a > 20) and (a mod 10 = 7)

d)

(a < 20) and (a mod 10 = 7)

6.

Что выведет программа?

a:=5;

s:=4*a;

a:= a+a;

write(a); end.

a)

25

b)

40

c)

10

d)

5

7.

Напишите результат выполнения операции 34 div 5

a)

6

b)

6, 8

c)

4

d)

7

8.

Напишите результат выполнения операции 52 mod 7

a)

3

b)

7.2

c)

3.2

d)

7

9.

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

var k, s: integer;

begin

s:=0;

k:=0;

while s < 80 do begin

s:=s+2*k;

k:=k+4;

end;

write(s);

end.

a)

90

b)

80

c)

20

d)

64

10.

Определите значение переменной c после выполнения следующего фрагмента программы

a := 20;

b := 15;

b := 3 * b - a;

if a > b then

c := 2 * a + b

else

c := 2 * a - b;

a)

20

b)

55

c)

25

d)

15

11.

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

var k, s: integer;

begin

s:=0;

k:=0;

while k < 12 do begin

s:=s+2*k;

k:=k+3;

end;

write(s);

end.

a)

12

b)

15

c)

36

d)

39