М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Сэээээ
Сэээээ
17.06.2022 09:05 •  Информатика

4. Л.Толстой считал, что взрослым людям в условиях войны трудно найти общий язык, но дети не заражены искаженными взглядами, им
более доступно истинно человеческое понимание добра и зла. Дина
отвечает на добром на добро, она прониклaсь большой симпатией к
Жилину русского офицера, который без ее не смог бы
выбраться из ямы, она проявляет смелость и самоотверженность, так
как освобождение пленника грозит ей опасностью. И Жилин столь же
искренен в своем отношении к горской девочке, он благодарен и
беспокоится за ее дальнейшую судьбу. Писатель показывает пример
подлинной дружбы, которая противостоит враждебным
обстоятельствам.
Домашнее задание: прочитать до конца рассказ 5-6 главы.
Письменно ответить на вопросы:
1. Почему Дина не побоялась человеку, которого в ауле
считали врагом?
2. Чем рисковала девочка?
Выразительное чтение эпизода расставания Жилина и Дины.
3. Какие чувства испытывают герои?
4. Почему Жилин просит Дину отнести шест на место?
5. Как данный эпизод раскрывает характеры героев?​

👇
Открыть все ответы
Ответ:
Makar198043
Makar198043
17.06.2022
Procedure TForm1.Button4Click(Sender: TObject);
var Buff: TNodePointer;
x: TItem;
i,j: Cardinal;
begin
 i:=0;
 Buff:=Head;
 if(Buff^.Next=nil) then
 begin
  ShowMessage('В стеке один элемент!');
  exit;
 end;
while Buff <> nil do
begin
 while (Buff^.Next<>nil) and (Buff^.Data=Buff^.Next^.Data) and not(isEmpty(Buff)) do
 begin
  pop(Buff^.Next,x);
  for j:=i to StringGrid1.RowCount-2 do
   StringGrid1.Cells[0,j]:=StringGrid1.Cells[0,j+1];
  StringGrid1.RowCount:=StringGrid1.RowCount-1;
 end;
 Buff:=Buff^.Next;
 i:=i+1;
end;
end;

PS. Delphi у меня сейчас нет, так что проверяйте сами. Если что не так - сообщайте.
4,5(89 оценок)
Ответ:
DashaCat02
DashaCat02
17.06.2022
Procedure TForm1.Button4Click(Sender: TObject);
var Buff: TNodePointer;
x: TItem;
i,j: Cardinal;
begin
 i:=0;
 Buff:=Head;
 if(Buff^.Next=nil) then
 begin
  ShowMessage('В стеке один элемент!');
  exit;
 end;
while Buff <> nil do
begin
 while (Buff^.Next<>nil) and (Buff^.Data=Buff^.Next^.Data) and not(isEmpty(Buff)) do
 begin
  pop(Buff^.Next,x);
  for j:=i to StringGrid1.RowCount-2 do
   StringGrid1.Cells[0,j]:=StringGrid1.Cells[0,j+1];
  StringGrid1.RowCount:=StringGrid1.RowCount-1;
 end;
 Buff:=Buff^.Next;
 i:=i+1;
end;
end;

PS. Delphi у меня сейчас нет, так что проверяйте сами. Если что не так - сообщайте.
4,6(74 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ