Font size
Worksheets2021 PASCAL задачи блоки схемы
Total questions: 20
Worksheet time: 2hrs 40mins
(a)
(a)
(a)
(a)
(a)
(a)
(a)
(a)
(a)
(a)
(a)
(a)
(a)
Определите, что будет напечатано в результате работы следующего фрагмента программы:
var k, s: integer;
begin
s:=2;
k:=2;
while s < 50 do begin
s:=s+k;
k:=k+2;
end;
write(k);
end.
(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)
Определите, что будет напечатано в результате работы следующего фрагмента программы:
var n, s: integer;
begin
n := 1;
s := 0;
while n <= 101 do begin
s := s + 7;
n := n + 1;
end;
write(s div 100);
end.
(a)
Определите, что будет напечатано в результате работы следующего фрагмента программы:
Var k, s: integer;
Sea: array[1..12] of integer;
Begin
Work[1] := 5; Work[2] := 4; Work[3] := 5; Work[4] := 7;
Work[5] := 6; Work[6] := 12; Work[7] := 7; Work[8] := 3;
Work[9] := 9; Work[10] := 7; Work[11] := 0; Work[12] := 9;
Work[13] := 1; Work[14] := 0; Work[15] := 1; m := 0; For k:=1 to 15 Do
If Work[k] > 6 Then Begin
m := m + Work[k];
End;
Writeln(k);
End.
(a)
Определите, что будет напечатано в результате работы следующего фрагмента программы:
var k, s: integer;
begin
s := 1;
k := 0;
while n < 13 do begin
s := s + 2 * k;
k := k + 1;
end;
write(s + k);
end.
(a)
Определите, что будет напечатано в результате работы следующего фрагмента программы:
Var k, score: integer; A: array[1..9] of integer;
Begin
A[1] := 9 ; A[2] :=11; A[3] := 7; A[4] :=12; A[5]:=13; A[6]:=5; A [7] := 9; A[8] :=3;
A[9] :=4 ; score:= 0;
for k:=1 to 9 do begin
if A[k] <9 then score:=score+A[k];
End;
Writeln(score);
End.
(a)
Соотнесите операции Pascal ABC:
(левое+правое)
1.Div 6. Считывание данных
2. Mod 7. Деление (остаток)
3. While 8. Вывод результата
4. Read 9. Деление (целое)
5. Write 0. Цикл «пока»
(a)
