Определить минимальный размер стипендии в каждой группе Фамилия Имя Группа Год рождения Размер стипендии
1 Алексеева Анна 211 12.12.1989 450,00 ₽
2 Денисов Дмитрий 212 23.11.1990 460,00 ₽
3 Ермакова Яна 213 09.07.1991 500,00 ₽
4 Жукин Иван 211 01.01.1989 470,00 ₽
5 Зайцев Михаил 213 05.10.1990 600,00 ₽
6 Ильина Галина 213 07.07.1990 800,00 ₽
7 Майорова Ирина 212 25.03.1991 850,00 ₽
8 Макарова Мария 211 19.05.1989 600,00 ₽
9 Маклакова Эвелина 213 20.09.1989 600,00 ₽
10 Петрова Вера 213 21.10.1990 550,00 ₽
11 Семенов Петр 213 29.11.1989 640,00 ₽
12 Синицина Марина 212 08.02.1991 700,00 ₽
13 Смирнов Александр 212 04.04.1990 750,00 ₽
14 Фишкин Алексей 211 11.11.1991 450,00 ₽
15 Фоминых Павел 211 25.05.1989 550,00 ₽

1.
var
  s: string;
  i, count: integer;
begin
  writeln('Vvedite stroky: ');
  readln(s);
  for i := 1 to length(s) - 2 do
    if copy(s, i, 3) = 'abc' then
      count := count + 1;
  writeln('Kol-vo: ', count);
end.
2.
var
  s1, s2: string;
  i, len1, len2: integer;
begin
  writeln('Vvedite stroky 1: ');
  readln(s1);
  writeln('Vvedite stroky 2: ');
  readln(s2);
  len1 := length(s1);
  len2 := length(s2);
  if len1 > len2 then writeln('1 stroka dlinnee')
  else if len1 < len2 then writeln('2 stroka dlinnee')
  else writeln('dlini strok ravnie')
end.
3.
var
  s1, s2, s3: string;
begin
  writeln('Vvedite stroky 1: ');
  readln(s1);
  writeln('Vvedite stroky 2: ');
  readln(s2);
  s3 := s1[1] + s1[2] + s2[1] + s2[2];
  writeln('Novaja stroka: ', s3);
end.

Каждый символ в кои-8 имеет объем информации 1 байт. всего текста 60*30 = 1800 байт на каждой странице. растровое изображение передает не более 8 = 2^3 цветов, значит, на кодировку цвета используется 3 бита. размер каждого рисунка 120*240*3 = 86400 бит = 10800 байт. а рисунков 2 на каждой странице. таким образом, каждая страница содержит 2*10800 + 1800 = 23400 байт. модем со скоростью передачи 28800 бит в сек передал документ за 5 сек. значит, он передал 28800*5 = 144000 бит = 18000 байт. но это меньше, чем находится на одной странице. вывод: у вас ошибка в условии.