Уровень a. на вход программы данные о результатах районной олимпиады. в первой строке – количество участников n, а следующие n строк имеют следующий формат: здесь – строка, состоящая не более чем из 20 символов; – строка, состоя-щая не более чем из 15 символов; – целое число, обозначающее общее количество , набранное участником. все данные разделены пробелами. пример входной строки: петечкин вася 152 чтобы на городскую олимпиаду проходят участники, набравшие в сумме более 100 . требуется вывести количество участников на городскую олимпиаду.

//Pascal ABC.NET v3.1 сборка 1172

type
 re=record
 sub:string;
 name:string;
 co:integer;
end;

Var
 n,i,k:integer;
 ar:array of re;
begin
 readln(n);
 setlength(ar,n+1);
 for i:=1 to n do
  begin
   writeln('Введите фамилию участника №',i);
   readln(ar[i].sub);
   writeln('Введите имя участника №',i);
   readln(ar[i].name);
   writeln('Введите участника №',i);
   readln(ar[i].co);
   if ar[i].co>100 then inc(k);
  end;
 writeln('Количество
end.

Пример ввода:
4
Введите фамилию участника №1
Двачевская
Введите имя участника №1
Алиса
Введите участника №1
99
Введите фамилию участника №2
Персунов
Введите имя участника №2
Семён
Введите участника №2
101
Введите фамилию участника №3
Коллайдер
Введите имя участника №3
Виола
Введите участника №3
999
Введите фамилию участника №4
Сиина
Введите имя участника №4
Микадо
Введите участника №4
100
Пример вывода:
Количество

k = 5

Объяснение:

q = 15 s = 0 i = 1

Цикл с постусловием:

s = s + i

i = i + 1

выход из цикла когда s > q

q = 15 s = 0 i = 1

s = 0 + 1 = 1

i = 1 + 1 = 2

1 > 15 (НЕТ)

q = 15 s = 1 i = 2

s = 1 + 2 = 3

i = 2 + 1 = 3

3 > 15 (НЕТ)

q = 15 s = 3 i = 3

s = 3 + 3 = 6

i = 3 + 1 = 4

6 > 15 (НЕТ)

q = 15 s = 6 i = 4

s = 6 + 4 = 10

i = 4 + 1 = 5

10 > 15 (НЕТ)

q = 15 s = 10 i = 5

s = 10 + 5 = 15

i = 5 + 1 = 6

15 > 15 (НЕТ)

q = 15 s = 15 i = 6

s = 15 + 6 = 21

i = 6 + 1 = 7

21 > 15 (ДА) - выход из цикла

q = 15 s = 21 i = 7

k = i - 2

k = 7 - 2 = 5

1)Режим Таблицы.

Объяснение:

Вот откуда взял инфу.

Отношение в Access позволяет объединить данные из двух разных таблиц. Каждое отношение состоит из двух полей (по одному в каждой таблице) со связанными данными. Например, таблицы "Товары" и "Сведения о заказах" могут содержать поле "КодТовара". Каждая запись в таблице "Сведения о заказах" содержит значение поля "КодТовара", которому соответствует запись в таблице "Товары" с тем же значением в данном поле.

При отношений между связанными таблицами приложение Access определяет, какие записи из каждой таблицы поместить в набор результатов запроса. Отношение также позволяет избежать потери данных, препятствуя исключению удаленных данных из синхронизации. Это называется целостностью данных.