Напечатать в алфавитном порядке: все строчные русские согласные буквы

@HalSaw · Регистрация: 18.12.2009

Студворк — интернет-сервис помощи студентам

МНОЖЕСТВА
Текст задан строкой, напечатать в алфавитном порядке: все строчные русские согласные буквы (все, кроме гласных и й,ь,ъ), входящие в текст. // скобочку не понял в задании...
1)

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
program class7;
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
const rs=['б','в','г','д','ж','з','к','л','м','н','п','р','с','т','ф','ц','х','ч','ш','щ'];
type M=set of char;
   var s:string;
       a:M;
 
  procedure Perevod(s:string; var a:M);
   var i:integer;
   begin
    a:=[];
    for i:=1 to length(s) do
    if s[i] in rs  then
    begin
    a:=a+[s[i]];
    end;
   end;
 
  procedure PrintSet(a:M);
  var ch:char;
  begin
   for ch:=#224 to #255 do
    if ch in a then write(ch);
  end;
begin
  readln(s);
  Perevod(s,a);
  PrintSet(a);
  readln;
end.

^ Пока пробую без больших, но не получается. Выводит, почти все буквы после 'c'...
Второе задание помогите)
2) Все звонкие согласные буквы, которыми заканчиваются нечетные слова

Сообщение от Puporev

HalSaw, Этот код нормально работает в Паскале, я проверил. В консоли Делфи с кодировкой русских букв какие-то проблемы, выдает не то.

Что делать?)

Добавлено через 2 часа 6 минут
1) Напечатать все строчные русские согласные буквы (все, кроме гласных и й,ь,ъ), входящие в текст.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
program six;
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
const rs=[#161,#162,#163,#164,#166,#167,#170,#171,#172,#173,#175,#224,#225,#226,#228,#229,#230,#231,#232,#233];
type M=set of char;
   var s:string;
       a:M;
 
  procedure Perevod(s:string; var a:M);
   var i:integer;
   begin
    a:=[];
    for i:=1 to length(s) do
    if s[i] in rs  then
    begin
    a:=a+[s[i]];
    end;
   end;
 
  procedure PrintSet(a:M);
  var ch:char;
  begin
  write('Soglasnie : ');
   for ch:=#0 to #255 do
    if ch in a then write(ch);
  end;
begin
write('Enter your string: ');
  readln(s);
  Perevod(s,a);
  PrintSet(a);
  readln;
end.

^ Рабочая программа
2) Все гласные буквы, которые не входят более, чем в одно слово
^ Нужна помощь)

Добавлено через 1 час 6 минут
не уж то не знает никто)

Добавлено через 14 часов 11 минут
апапап

@Mawrat · 27.02.2010, 10:41

Задача 2.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils
 
  ,Windows;
 
//Возвращает строку, которая содержит гласные буквы, которые встречаются не более,
//чем в одном слове строки aStr.
function GetA(const aStr : String) : String;
const
  //Множество разделителей.
  Delims = [' ', '.', ',', ':', ';', '!', '?', '-', Char(9)];
  //Множество гласных букв.
  A = ['А', 'а', 'Е', 'е', 'И', 'и', 'О', 'о', 'У', 'у', 'Ы', 'ы', 'Э', 'э', 'Ю', 'ю', 'Я', 'я'];
var
  //Множество гласных букв, которые обнаружены в тексте.
  OcText : set of Char;
  //Строка, содержащая множество гласных букв, которые обнаружены в отдельном слове.
  StrOcWord : String;
  //Для промежуточных вычислений.
  CharTmp : Char;
  //Индексы символов в строках.
  i, j, k : Integer;
  //Индекс конца очередного слова.
  Pos2 : Integer;
begin
  //Результирующая строка.
  Result := '';
 
  OcText := [];
  StrOcWord := '';
  Pos2 := 0;
  for i := 1 to Length(aStr) do begin
    //Если очередной символ является разделителем - пропускаем итерацию.
    if aStr[i] in Delims then Continue;
 
    //Обработка символов слова.
    //Если очередной символ слова является гласной буквой.
    if aStr[i] in A then begin
      //Берём строчную версию гласной буквы.
      CharTmp := AnsiLowerCase(aStr[i])[1];
      //Если этой гласной буквы нет в StrOcWord, то добавляем её.
      if Pos(CharTmp, StrOcWord) = 0 then
        StrOcWord := StrOcWord + CharTmp
      ;
    end;
 
    //Отслеживаем конец слова.
    if i = Length(aStr) then
      Pos2 := i
    else if aStr[i + 1] in Delims then
      Pos2 := i
    ;
    //Если конец слова найден.
    if Pos2 > 0 then begin
      for j := 1 to Length(StrOcWord) do begin
        if StrOcWord[j] in OcText then begin
          //Если гласная буква уже присутствует в OcText, то удаляем
          //такую букву из Result.
          k := Pos(StrOcWord[j], Result);
          if k > 0 then Delete(Result, k, 1);
        end else begin
          //Если гласной буквы нет в OcText, то добавляем её в OcText
          //и в Result.
          OcText := OcText + [ StrOcWord[j] ];
          Result := Result + StrOcWord[j];
        end;
      end;
      //Обнуляем сведения по слову перед следующей итерацией.
      StrOcWord := '';
      //Флаг - "Конец слова не найден".
      Pos2 := 0;
    end; //if Pos2 > 0
  end; //for i
end;
 
var
  StrRes, StrTmp : String;
begin
  //Переключаем кодовую страницу консоли на CP1251 (это Win-1251).
  SetConsoleCP(1251);
  SetConsoleOutputCP(1251);
  //Если для консоли по умолчанию установлен точечный шрифт, можно преключиться
  //на шрифт Lucida Console в свойтвах консольного окна.
  //Либо можно установить шрифт Lucida Console по умолчанию для консоли:
  //1. Находим раздел в реестре:
  //HKEY_LOCAL_MACHINE\Software\Microsoft\WindowsNT\CurrentVersion\Console\TrueTypeFont
  //2. Добавляем строковый параметр (REG_SZ) с именем 00 (ноль ноль).
  //В поле Data этого параметра задать значение: Consolas.
 
  repeat
    Writeln('Введите строку:');
    Readln(StrTmp);
    StrRes := GetA(StrTmp);
    Writeln('Гласные буквы, которые встречаются в тексте не более, чем в одном слове:');
    Writeln(StrRes);
    Writeln('Повторить - ENTER. Выход - любой символ + ENTER.');
    Readln(StrTmp);
  until StrTmp <> '';
end.

В этом коде в комментах я добавил разъяснения, как настроить консоль на кодовую страницу Win-1251 и как задать шрифт Lucida Console по умолчанию.
Этот приём можно применить в коде первой задачи.

@HalSaw · 28.02.2010, 16:16 **[ТС]**

ммм , не подойдет.
мы пока не прошли так далеко...
нужно решать по типу последнего моего кода.

@HalSaw · 04.03.2010, 19:07 **[ТС]**

ну нужно, как я понял, несколько множеств и операции с ними...
а как оформить правильно не знаю.

@Mawrat · 04.03.2010, 20:38

Вот решение чисто на множествах:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,
  Windows;
 
type
  TCharDim = set of Char;
 
//Возвращает множество гласных букв, которые встречаются не более,
//чем в одном слове строки aStr.
function GetA(const aStr : String) : TCharDim;
const
  //Множество разделителей.
  Delims = [' ', '.', ',', ':', ';', '!', '?', '-', Char(9)];
  //Множество гласных букв.
  A = ['А', 'а', 'Е', 'е', 'И', 'и', 'О', 'о', 'У', 'у', 'Ы', 'ы', 'Э', 'э', 'Ю', 'ю', 'Я', 'я'];
var
  //Множество гласных букв, которые обнаружены в тексте.
  DimText : TCharDim;
  //Множество гласных букв, которые обнаружены в отдельном слове.
  DimWord : TCharDim;
  //Индекс символов в строке.
  i : Integer;
  //Индекс конца очередного слова.
  Pos2 : Integer;
begin
  //Результирующее множество.
  Result := [];
 
  DimText := [];
  DimWord := [];
  Pos2 := 0;
  for i := 1 to Length(aStr) do begin
    //Если очередной символ является разделителем - пропускаем итерацию.
    if aStr[i] in Delims then Continue;
 
    //Обработка символов слова.
    //Если очередная буква является гласной, то добавляем её
    //заглавную версию в множество DimWord.
    if aStr[i] in A then DimWord := DimWord + [ AnsiUpperCase(aStr[i])[1] ];
 
    //Отслеживаем конец слова.
    if i = Length(aStr) then
      Pos2 := i
    else if aStr[i + 1] in Delims then
      Pos2 := i
    ;
    //Если конец слова найден.
    if Pos2 > 0 then begin
      //Удаляем из Result те гласные буквы, которые присутствуют
      //одновременно в множествах DimWord и DimText.
      Result := Result - (DimWord * DimText);
      //Добавляем в множество Result те гласные буквы, которые присутствуют
      //в множестве DimWord, но которых нет в DimText.
      Result := Result + (DimWord - DimText);
      //Добавляем в множество DimText гасные буквы, которые имеются в множестве DimWord.
      DimText := DimText + DimWord;
 
      //Обнуляем сведения по слову перед следующей итерацией.
      DimWord := [];
      //Флаг - "Конец слова не найден".
      Pos2 := 0;
    end; //if Pos2 > 0
  end; //for i
end;
 
var
  DimRes : TCharDim;
  StrRes, StrTmp : String;
  CharTmp : Char;
begin
  //Переключаем кодовую страницу консоли на CP1251 (это Win-1251).
  SetConsoleCP(1251);
  SetConsoleOutputCP(1251);
  //Если для консоли по умолчанию установлен точечный шрифт, можно преключиться
  //на шрифт Lucida Console в свойтвах консольного окна.
  //Либо можно установить шрифт Lucida Console по умолчанию для консоли:
  //1. Находим раздел в реестре:
  //HKEY_LOCAL_MACHINE\Software\Microsoft\WindowsNT\CurrentVersion\Console\TrueTypeFont
  //2. Добавляем строковый параметр (REG_SZ) с именем 00 (ноль ноль).
  //В поле Data этого параметра задать значение: Consolas.
 
  repeat
    Writeln('Введите строку:');
    Readln(StrTmp);
 
    //Получаем множество, которое содержит только те гласные буквы, которые
    //присутствуют не более чем в одном слове текста StrTmp.
    DimRes := GetA(StrTmp);
    //Переписываем буквы множества DimRes в строку StrRes.
    StrRes := '';
    for CharTmp := Low(Char) to High(Char) do begin
      if CharTmp in DimRes then begin
        if StrRes <> '' then StrRes := StrRes + ', ';
        StrRes := StrRes + CharTmp;
      end;
    end;
 
    Writeln('Гласные буквы, которые встречаются в тексте не более, чем в одном слове:');
    Writeln(StrRes);
    Writeln('Повторить - ENTER. Выход - любой символ + ENTER.');
    Readln(StrTmp);
  until StrTmp <> '';
end.

Поясню эту строку:

Delphi
1
2
3
...
    if aStr[i] in A then DimWord := DimWord + [ AnsiUpperCase(aStr[i])[1] ];
...

Здесь, что касается [ AnsiUpperCase(aStr[i])[1] ] - AnsiUpperCase() возвращает тип данных String, а элементами множества, в нашем случае, являются данные типа Char. Поэтому, хотя в нашем примере AnsiUpperCase() вернёт строку состоящую только из одного симовла, тем не менее это строка, а не символ. Поэтому нам надо в этой строке взять только первый символ. Эту задачу выполняет выражение: AnsiUpperCase(aStr[i])[1]. А так как мы выполняем действия со множествами, то нас инетерсует здесь множество, состоящее из одного символа AnsiUpperCase(aStr[i])[1]. Это представлено выражением: [ AnsiUpperCase(aStr[i])[1] ].

@HalSaw · 06.03.2010, 16:28 **[ТС]**

нам нельзя так решать,
uses
SysUtils, только с этим...
меня просто выгнали из темы паскаль, я сюда пришел

я выкладывал свой код, решенной первой задачи, вторую надо решить по такому же принципу)

@Mawrat · 07.03.2010, 01:07

Ясно.

Тогда вот вариант, который будет работать и в Delphi и в Pascal.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
type
  TCharDim = set of Char;
 
//Возвращает заглавный вариант гласной буквы кириллицы для кодовой страницы CP866.
function AUp866(const aCh : Char) : Char;
begin
  case aCh of
  #160 : Result := #128;
  #165 : Result := #133;
  #168 : Result := #136;
  #174 : Result := #142;
  #227 : Result := #147;
  #235 : Result := #155;
  #237 : Result := #157;
  #238 : Result := #158;
  #239 : Result := #159;
  else
    Result := aCh;
  end;
end;
 
//Возвращает множество гласных букв кириллицы, которые встречаются не более,
//чем в одном слове строки aStr.
function GetA(const aStr : String) : TCharDim;
const
  //Множество разделителей.
  Delims = [' ', '.', ',', ':', ';', '!', '?', '-', Char(9)];
  //Множество гласных букв кириллицы.
  //Для кодовой страницы ANSI (CP1251), если текст набран в редакторе Delphi.
  //Это же самое для кодовой страницы CP866, если текст набран в DOS редакторе PASCAL.
  //A = ['А', 'а', 'Е', 'е', 'И', 'и', 'О', 'о', 'У', 'у', 'Ы', 'ы', 'Э', 'э', 'Ю', 'ю', 'Я', 'я'];
  //Для кодовой страницы CP866 независимо от редактора.
  A = [#128, #160, #133, #165, #136, #168, #142, #174, #147, #227, #155, #235, #157, #237, #158, #238, #159, #239];
var
  //Множество гласных букв, которые обнаружены в тексте.
  DimText : TCharDim;
  //Множество гласных букв, которые обнаружены в отдельном слове.
  DimWord : TCharDim;
  //Индекс символов в строке.
  i : Integer;
  //Индекс конца очередного слова.
  Pos2 : Integer;
begin
  //Результирующее множество.
  Result := [];
 
  DimText := [];
  DimWord := [];
  Pos2 := 0;
  for i := 1 to Length(aStr) do begin
    //Если очередной символ является разделителем - пропускаем итерацию.
    if aStr[i] in Delims then Continue;
 
    //Обработка символов слова.
    //Если очередная буква является гласной, то добавляем её
    //заглавную версию в множество DimWord.
    if aStr[i] in A then DimWord := DimWord + [ AUp866(aStr[i]) ];
 
    //Отслеживаем конец слова.
    if i = Length(aStr) then
      Pos2 := i
    else if aStr[i + 1] in Delims then
      Pos2 := i
    ;
    //Если конец слова найден.
    if Pos2 > 0 then begin
      //Удаляем из Result те гласные буквы, которые присутствуют
      //одновременно в множествах DimWord и DimText.
      Result := Result - (DimWord * DimText);
      //Добавляем в множество Result те гласные буквы, которые присутствуют
      //в множестве DimWord, но которых нет в DimText.
      Result := Result + (DimWord - DimText);
      //Добавляем в множество DimText гасные буквы, которые имеются в множестве DimWord.
      DimText := DimText + DimWord;
 
      //Обнуляем сведения по слову перед следующей итерацией.
      DimWord := [];
      //Флаг - "Конец слова не найден".
      Pos2 := 0;
    end; //if Pos2 > 0
  end; //for i
end;
 
var
  DimRes : TCharDim;
  StrRes, StrTmp : String;
  CharTmp : Char;
begin
  repeat
    Writeln('Vvedite strku:');
    Readln(StrTmp);
 
    //Получаем множество, которое содержит только те гласные буквы, которые
    //присутствуют не более чем в одном слове текста StrTmp.
    DimRes := GetA(StrTmp);
    //Переписываем буквы множества DimRes в строку StrRes.
    StrRes := '';
    for CharTmp := Low(Char) to High(Char) do begin
      if CharTmp in DimRes then begin
        if StrRes <> '' then StrRes := StrRes + ', ';
        StrRes := StrRes + CharTmp;
      end;
    end;
 
    Writeln('Glasnie bukvi, kotorie vstrechaiutca ne bolee, chem v odnom slove:');
    Writeln(StrRes);
    Writeln('Povtorit - ENTER. Bihod - luboi simvol + ENTER.');
    Readln(StrTmp);
  until StrTmp <> '';
end.

@KaTerin-93 · 15.05.2012, 13:47

Сообщение от HalSaw

МНОЖЕСТВА
Текст задан строкой, напечатать в алфавитном порядке: все строчные русские согласные буквы (все, кроме гласных и й,ь,ъ), входящие в текст. // скобочку не понял в задании...
1)

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
program class7;
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
const rs=['б','в','г','д','ж','з','к','л','м','н','п','р','с','т','ф','ц','х','ч','ш','щ'];
type M=set of char;
   var s:string;
       a:M;
 
  procedure Perevod(s:string; var a:M);
   var i:integer;
   begin
    a:=[];
    for i:=1 to length(s) do
    if s[i] in rs  then
    begin
    a:=a+[s[i]];
    end;
   end;
 
  procedure PrintSet(a:M);
  var ch:char;
  begin
   for ch:=#224 to #255 do
    if ch in a then write(ch);
  end;
begin
  readln(s);
  Perevod(s,a);
  PrintSet(a);
  readln;
end.

^ Пока пробую без больших, но не получается. Выводит, почти все буквы после 'c'...
Второе задание помогите)
2) Все звонкие согласные буквы, которыми заканчиваются нечетные слова

Что делать?)

Добавлено через 2 часа 6 минут
1) Напечатать все строчные русские согласные буквы (все, кроме гласных и й,ь,ъ), входящие в текст.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
program six;
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
const rs=[#161,#162,#163,#164,#166,#167,#170,#171,#172,#173,#175,#224,#225,#226,#228,#229,#230,#231,#232,#233];
type M=set of char;
   var s:string;
       a:M;
 
  procedure Perevod(s:string; var a:M);
   var i:integer;
   begin
    a:=[];
    for i:=1 to length(s) do
    if s[i] in rs  then
    begin
    a:=a+[s[i]];
    end;
   end;
 
  procedure PrintSet(a:M);
  var ch:char;
  begin
  write('Soglasnie : ');
   for ch:=#0 to #255 do
    if ch in a then write(ch);
  end;
begin
write('Enter your string: ');
  readln(s);
  Perevod(s,a);
  PrintSet(a);
  readln;
end.

^ Рабочая программа
2) Все гласные буквы, которые не входят более, чем в одно слово
^ Нужна помощь)

Добавлено через 1 час 6 минут
не уж то не знает никто)

Добавлено через 14 часов 11 минут
апапап

а как в эту программу впихнуть чтобы выводили только в первом слове согласные

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .	SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .

@HalSaw 2 / 2 / 1 Регистрация: 18.12.2009 Сообщений: 117
	28.02.2010, 16:16 [ТС]
	ммм , не подойдет. мы пока не прошли так далеко... нужно решать по типу последнего моего кода. 0

@HalSaw 2 / 2 / 1 Регистрация: 18.12.2009 Сообщений: 117
	04.03.2010, 19:07 [ТС]
	ну нужно, как я понял, несколько множеств и операции с ними... а как оформить правильно не знаю. 0

@HalSaw 2 / 2 / 1 Регистрация: 18.12.2009 Сообщений: 117
	06.03.2010, 16:28 [ТС]
	нам нельзя так решать, uses SysUtils, только с этим... меня просто выгнали из темы паскаль, я сюда пришел я выкладывал свой код, решенной первой задачи, вторую надо решить по такому же принципу) 0