Определите, какое число будет напечатано в результате работы следующей программы.
Var k, b: integer;
Tem: array[1..12] of integer;
Begin
b := 15;
Tem[1] := 22; Tem[2] := 25;
Tem[3] := 20; Tem[4] := 18;
Tem[5] := 16; Tem[6] := 14;
Tem[7] := 20; Tem[8] := 23;
Tem[9] := 17; Tem[10] := 19;
Tem[11] := 20; Tem[12] := 21;
For k := 1 to 12 Do
If Tem[k]
b := b + 1;
Writeln(b);
End.
Var k, b: integer;
Tem: array[1..12] of integer;
Begin
b := 0;
Tem[1] := 22; Tem[2] := 25;
Tem[3] := 20; Tem[4] := 18;
Tem[5] := 16; Tem[6] := 14;
Tem[7] := 20; Tem[8] := 23;
Tem[9] := 17; Tem[10] := 19;
Tem[11] := 20; Tem[12] := 21;
For k := 1 to 12 Do
If Tem[k]
b := b + Tem[k];
Writeln(b);
End.
Var k, m: integer;
Work: array[1..15] 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] := 8;
m := 0;
For k := 1 to 15 Do
If Work[k]
Begin
m := m + 1;
End;
Writeln(m);
End.
Var k, m: integer;
Work: array[1..15] 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] := 8;
m := 0;
For k := 1 to 15 Do
If Work[k] 6 Then
Begin
m := m + 1;
End;
Writeln(m);
End.
Var k, m: integer;
Ani: array[1..12] of integer;
Begin
Ani[1] := 17; Ani[2] := 17;
Ani[3] := 19; Ani[4] := 21;
Ani[5] := 23; Ani[6] := 22;
Ani[7] := 24; Ani[8] := 16;
Ani[9] := 19; Ani[10] := 21;
Ani[11] := 17; Ani[12] :=17;
m := 0;
For k := 1 to 12 Do
If Ani[k] = 17 Then
Begin
m := m + Ani[k];
End;
Writeln(m);
End.
Var k, m: integer;
App: array[1..12] of integer;
Begin
App[1] := 100; App[2] := 128;
App[3] := 80; App[4] := 99;
App[5] := 120; App[6] := 69;
App[7] := 55; App[8] := 115;
App[9] := 84; App[10] := 111;
App[11] := 59; App[12] := 100;
m := 0;
For k := 1 to 12 Do
If App[k] 100 Then
Begin
m := m + 1;
End;
m : = m + 10;
Writeln(m);
End.
Var k, m: integer;
App: array[1..12] of integer;
Begin
App[1] := 100; App[2] := 128;
App[3] := 80; App[4] := 99;
App[5] := 120; App[6] := 69;
App[7] := 55; App[8] := 115;
App[9] := 84; App[10] := 111;
App[11] := 59; App[12] := 100;
m := 0;
For k := 1 to 12 Do
If App[k]
Begin
m := m + 1;
End;
m : = m + 20;
Writeln(m);
End.
Var k, m: integer;
Flow: array[1..12] of integer;
Begin
Flow[1] := 25; Flow[2] := 33;
Flow[3] := 45; Flow[4] := 56;
Flow[5] := 78; Flow[6] := 112;
Flow[7] := 120; Flow[8] := 133;
Flow[9] := 97; Flow[10] := 77;
Flow[11] := 59; Flow[12] := 34;
m := 23;
For k := 1 to 12 Do
If Flow[k]
Begin
m := m + 1;
End;
Writeln(m);
End.
Var k, m: integer;
Flow: array[1..12] of integer;
Begin
Flow[1] := 25; Flow[2] := 33;
Flow[3] := 45; Flow[4] := 56;
Flow[5] := 78; Flow[6] := 112;
Flow[7] := 120; Flow[8] := 133;
Flow[9] := 97; Flow[10] := 77;
Flow[11] := 59; Flow[12] := 34;
m := 35;
For k := 1 to 12 Do
If Flow[k] 100 Then
Begin
m := m + 1;
End;
Writeln(m);
End.
Var t, m: integer;
Lose: array[1..10] of integer;
Begin
Lose[1] := 1; Lose[2] := 5;
Lose[3] := 3; Lose[4] := 6;
Lose[5] := 7; Lose[6] := 12;
Lose[7] := 1; Lose[8] := 3;
Lose[9] := 3; Lose[10] := 1;
m := 0;
For t := 1 to 10 Do
If Lose[t] 3 Then
Begin
m := m + Lose[t];
End;
Writeln(m);
End.
Var t, m: integer;
Lose: array[1..10] of integer;
Begin
Lose[1] := 1; Lose[2] := 5;
Lose[3] := 3; Lose[4] := 6;
Lose[5] := 7; Lose[6] := 12;
Lose[7] := 1; Lose[8] := 3;
Lose[9] := 3; Lose[10] := 1;
m := 0;
For t := 1 to 10 Do
If Lose[t]
Begin
m := m + Lose[t];
End;
Writeln(m);
End.
var k, score: integer;
A: array[1..9] of integer;
begin
A[1]:=6; 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;
write(score);
end.
Var k, m, n: integer;
Dat: array[1..10] of integer;
Begin
Dat[1] := 7; Dat[2] := 9;
Dat[3] := 10; Dat[4] := 5;
Dat[5] := 6; Dat[6] := 7;
Dat[7] := 9; Dat[8] := 10;
Dat[9] := 6; Dat[10] := 9;
m := 0; n := 0;
for k := 1 to 10 do
if Dat[k] = m then
begin
m := Dat[k];
n := k
end;
writeln(n)
End.
Var k, m, day: integer;
Dat: array[1..7] of integer;
Begin
Dat[1]:=7; Dat[2]:=9;Dat[3]:=10; Dat[4]:=8;
Dat[5]:=6; Dat[6]:=7;Dat[7]:=6;
day:= 1; m:=Dat[1];
for k:=2 to 7 do begin
if Dat[k]
m:=Dat[k];
day:=k
end
end;
write(day);
End.
var k, n, d: integer;
Dat: array[1..10] of integer;
begin
Dat[1] := 140; Dat[2] := 130;
Dat[3] := 135; Dat[4] := 150;
Dat[5] := 120; Dat[6] := 150;
Dat[7] := 110; Dat[8] := 140;
Dat[9] := 150; Dat[10] := 135;
n := 1; d := Dat[1];
for k := 2 to 10 do
if Dat[k] = d then
begin
d := Dat[k];
n := k
end;
write(n);
end.
0
