Font size
WorksheetsPascal
Total questions: 30
Worksheet time: 7hrs 33mins
Как записывается в языке Паскаль операция присваивания
=
>=
:=
(*
Что не входит в алфавит языка Паскаль?
Русские прописные буквы
Специальные символы
Латинские строчные буквы
Латинские прописные
Целочисленный оператор это...
Real
String
Char
Integer
Раздел VAR служит для
описания величин
описания выражений
описания используемых переменных
все ответы верны
Что будет выведено на экран в результате выполнения фрагмента программы
a:=5; b:=3;
write( 'Z(', a, ')=', '(', a+b, ')' );
Здесь a и b — целые переменные.
(a)
Чему будет равна переменная «c» после выполнения этой программы:
a := 22;
b := 4;
c := a mod b + b;
(a)
Чему будет равна переменная «c» после выполнения этой программы:
a := 22;
b := 4;
b := a div b;
c := a mod (b + 1);
2
6
5
4
Чему будет равна переменная «c» после выполнения этой программы:
a := 28;
b := 7;
b := a mod b;
c := a div (b + 1);
(a)
Определите значение переменной «a» после выполнения фрагмента программы:
a := 10;
if a < 5 then
a := a + 12
else
a := a - 7;
(a)
Определите значение переменной «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)
Определите значение переменной «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)
Сколько раз будет выполнен этот цикл?
i:=6;
while i<5 do begin
writeln('Привет!');
i:=i+1;
end;
0
1
2
3
Чему будет равно значение переменной «a» после выполнения этого цикла?
i:=2;
a:=12;
while i<5 do begin
a:=a+i;
i:=i+1;
end;
(a)
Какое число нужно написать вместо многоточия, чтобы цикл выполнился ровно 3 раза?
i:=...;
while i<=7 do begin
writeln('Привет!');
i:=i+1;
end;
6
4
5
3
Определите значение переменной «a» после выполнения фрагмента программы:
a := 10; b := 5;
if (a > 5) and (a < b) then
a := a - 5;
(a)
Определите значение переменной «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)
Какую логическую операцию нужно добавить в программу вместо многоточия, чтобы значение переменной «a» после выполнения фрагмента программы стало равно 15?
a := 10; b := 5;
if (a < 1) ... (a > b) then
a := a - 5
else
a := a + 5;
and
or
Чему будет равно значение целой переменной «a» после выполнения этого фрагмента программы?
a:=10;
for i:=0 to 4 do begin
a:=a-i
end;
(a)
Чему будет равно значение целой переменной «a» после выполнения этого фрагмента программы?
a:=4;
for i:=1 to 2 do begin
a:=a+a
end;
8
16
4
Какое число будет выведено на экран после выполнения этого фрагмента программы?
write(4);
for i:=4 downto 3 do
write(2*i);
(a)
Что выведет на экран следующая программа?
var count: integer;
count:= 1;
while count < 5 do begin
writeln('Привет');
count:= count + 1
end;
Привет
Привет
Привет
Привет
Привет
Привет
Привет
Привет
Привет
ПриветПриветПриветПривет
ПриветПриветПриветПриветПривет
Чему будет равна переменная N после выполнения фрагмента программы?
N:=444;
while N<>0 do begin
d:= N mod 10;
sum:= sum + d;
N:= N div 10
end;
4
444
12
нет верного ответа
Чему будет равна переменная count после выполнения фрагмента программы?
N:=444;
while N<>0 do begin
d:= N mod 10;
count:= count + 1;
N:= N div 10
end;
4
444
3
12
Определите значение переменной a после выполнения фрагмента программы:
a := 10;
if a < 5 then
a := a + 12
else
a := a - 7;
3
10
22
7
(a)
(a)
(a)
(a)
Определите, что будет напечатано в результате работы следующего фрагмента программы:
Var k, s: integer;
Sea: array[1..12] of integer;
Begin
Sea[1] := 170; Sea [2] := 170; Sea [3] := 190; Sea [4] := 210;
Sea [5] := 230; Sea [6] := 220; Sea [7] := 240; Sea [8] := 160;
Sea [9] := 190; Sea [10] := 210; Sea [11] := 170; Sea [12] :=170;
s := 100;
For k := 1 to 12 do
If Sea [k] > 220 Then Begin
s := s + Sea [k];
End;
Writeln(s);
End.
(a)
Укажите, сколько звездочек будет на экране, после выполнения программы:
x:=1;
while x<10 do
begin
write ( '*' );
x:=x+2;
end;
3
5
10
ни одной
