Рубрики
ЕГЭ Информатика

Cl 1) хО = 3, уО = О. 2) Вариант доработки программы: Var Xθ, yθ: real; Begin Readln(xθz yθ); If (x0>0) And (y0And…

Cl

1) хО = 3, уО = О.

2) Вариант доработки программы:

Var Xθ,yθ: real;

Begin

Readln(xθz yθ);

If (x0>0) And (y0<0) And (yθ>xθ∕2-l) Then Write (’принадлежит,)

Else

Write(’не принадлежит’);

End.

C2

Max := a[1];

K := 1;

For i:=2 to 50 do

If A[i] > max Then

Begin

Max :≈ a[i];

K := 1;

End

Else

If A[i] = max Then K := k + 1;

Writein(k);

C3 Выигрывает второй игрок.

Начало игры

Ход 1-го игрока

Выигрышный ход 2-го игрока

Ход 1-го игрока

Выигрышный ход 2-го игрока

3,4

6,4

6,7

12,7

24,7

9,7

18,7

3,7

6, 14

12, 14

6, 10

6,20

3,8

6,8

12,8

24,8

9,8

18,8

6, 16

12, 16

6, H

6, 22

Это показывает неполное дерево игры, в котором приведены Все возможные варианты ходов первого игрока и Выигрышные варианты ходов второго игрока.

С4 Программа может компилироваться в любой из следующих систем программирования: Borland Pascal 7.0, Free Pascal 2.0, Turbo Delphi 2006, Pascal ABC 3.0, PascalABC. NET 1.5.

Var UnivBall: Array[1..3] of Integer; UnivCount: Array[1..3] Of Integer; s, Univ: string;

Nz Ball, ErrCodez iz jz k: integer;

Begin for I:=l To 3 Do begin

UnivBallfi] := 0;

UnivCountfi] := 0;

End;

Readln(N);

For I:=l To N do

Begin

Readln(s);

{ Удаление из строки S фамилии и инициалов } Delete(sz lz Pos (»z s));

Deletefsz lz Pos(, ,z s));

{ Получение из строки названия университета } K := Pos(‘,z s);

Univ := Copyfsz Izк — 1);

Deletefsz Izк);

{ Получение из строки балла ЕГЭ } ValfSz Ball, ErrCode);

{ Определение номера текущего университета } К := 1;

If Univ = ‘МГУ’Then К := 2 else If Univ = ‘СПбУ* Then К := 3;

{ Сравнение балла с максимальным баллом для текущего университета }

If UnivBalltk] < Ball Then

Begin

UnivBall[к] := Ball;

UnivCount[к] := 1;

End else if UnivBall[к] = Ball Then Inc(UnivCount[k]);

End;

Writein(UnivCount[1], ’ ‘r UnivCount[2], ‘t, UnivCount[3]);

End.

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *