Добавлено (08.11.2010, 05:04)
---------------------------------------------
Не плохая идея. Вместе намного проще подготовиться к экзамену Валим все инфо сюда!!!!!

var
min, ans: array[92..98] of integer;
c: char;
i, k, N, b: integer;
begin
for i:=92 to 98 do
begin
min[i]:=3001;{допустимо и другое число, >3000}
ans[i]:=0;
end;
readln(N);
for i:=1 to N do
begin
repeat
read©;
until c=' '; {считана компания}
repeat
read©;
until c=' '; {считана улица}
readln(k,b);
if min[k] > b then
begin
min[k]:=b;
ans[k]:=1
end else
if min[k] = b then ans[k]:=ans[k]+1;
end;
{если бензина какой-то марки не было,
ans[i] осталось равным 0}
writeln(ans[92],' ', ans[95],' ', ans[98])
end.

DIM min(8) AS INTEGER, ans(8) AS INTEGER
DIM s AS STRING
FOR i = 2 TO 8
min(i) = 3001
ans(i) = 0
NEXT i
INPUT n
FOR j = 1 TO n
LINE INPUT s
c$ = MID$(s, 1, 1)
i = 1
WHILE NOT (c$ = " ")
i = i + 1
c$ = MID$(s, i, 1)
WEND
i = i + 1
c$ = MID$(s, i, 1)
WHILE NOT (c$ = " ")
i = i + 1
c$ = MID$(s, i, 1)
WEND
i = i + 2
REM Выделим из марки бензина только последнюю цифру
30
k = ASC(MID$(s, i, 1)) - ASC("0")
i = i + 2
b = VAL(MID$(s, i))
IF min(k) > b THEN
min(k) = b
ans(k) = 1
ELSE IF min(k) = b THEN ans(k) = ans(k) + 1
END IF
NEXT j
PRINT ans(2),ans(5),ans(8)
END

Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из них.
Паскаль
const
N=30;
var
a: array [1..N] of integer;
i, j, min: integer;
begin
for i:=1 to N do readln(a[i]);
…
end.

Решение:

Паскаль
min:=100;
for i:=1 to N do
if (a[i]>=20) and (a[i]<min) then
min:=a[i];
writeln(min);

Добавлено (29.11.2010, 07:47)
---------------------------------------------
Задача B1: Сигнальное устройство в течение одной секунды передает 1 из 3 возможных сигналов. Сколько различных сигналов может передать устройство за 4 секунды?

Решение: Очевидно, что в первую, вторую, третью и четвертую секунду устройство может передать любой из 3 возможных сигналов. Тогда общее число возможных сигналов за 4 секунды вычисляется по следующей формуле: 3*3*3*3=34=81 (в комбинаторике эта формула является одной из основных).

Ответ. 81.

Добавлено (14.12.2010, 06:30)
---------------------------------------------
Задание С3: Два игрока играют в следующую игру. Перед ними лежат две кучки камней, в первой из которых 3, а во второй 4 камня. У каждого игрока неограниченно много камней. Игроки ходят по очереди. Ход состоит в том, что игрок или удваивает число камней в какой-то куче или добавляет 4 камня в какую-то кучу. Игрок, после хода которого общее число камней в двух кучах становится больше 25, проигрывает. Кто выигрывает при безошибочной игре обоих игроков – игрок, делающий первый ход, или игрок, делающий второй ход? Каким должен быть первый ход выигрывающего игрока? Ответ обоснуйте.

Добавлено (14.12.2010, 06:35)
---------------------------------------------
Последовательно выполните следующее:
1) Приведите пример таких чисел x, y, при которых программа неправильно решает поставленную задачу.
2) Укажите, как нужно доработать программу, чтобы не было случаев ее неправильной работы. (Это можно сделать несколькими способами, поэтому можно указать любой правильный способ доработки исходной программы.)
Элементы ответа:
1) Пример: x=2, y=2 (Любая пара (x,y), для которой выполняется: y>x или y>–x.)
2) Возможная доработка (Паскаль, разбиение области на две части прямой x=0):
if (y>=x*x-2) and (y<=x) and (x>=0) or (x<=0) and
(y<=-x) and (y>=x*x-2) then
write('принадлежит')
else
write('не принадлежит')
Возможная доработка (Си, разбиение на две пересекающиеся области):
if (y>=x*x-2 && (y<=x || y<=-x))
printf("принадлежит");
else
printf("не принадлежит");
Возможная доработка (Бейсик, отбрасывание части от большей области, используются вложенные условия):
IF y >= x * x - 2 THEN
IF NOT (y > x AND y > -x) THEN
PRINT "принадлежит"
ELSE
PRINT "не принадлежит"
ENDIF
ELSE
PRINT "не принадлежит"
ENDIF
Обратите внимание, что вариантов доработки может быть достаточно много, но обычно правильное описание заштрихованных областей в них представляет собой или объединение двух (или более) возможно пересекающихся
областей,
или исключение одной области из другой.
При разделении области вдоль какой-либо линии точки, которые лежат на этой линии внутри области, могут быть причислены к одной части, к другой или к обеим (то есть, например, в приведенном решении на языке Паскаль одно из условий (x>=0) или (x<=0) может быть строгим).
Могут быть и другие верные способы доработки.

Обратите внимание! В задаче требовалось выполнить три действия: указать пример входных данных, при которых программа работает неверно, и исправить две ошибки:
1. Неправильное использование условного оператора, в результате чего при невыполнении первого, второго или третьего условия программа не выдавала ничего (отсутствуют случаи ELSE).
2. Приведенным трем ограничениям не удовлетворяют точки плоскости, у которых (y>–x) и (y>=x2–2) и (y<=x), а также точки, у которых (y>x) и (y>=x2–2) и (y<=–x).