Почему важна разработка анимации в игровой среде про-
граммирования?
2. Почему мы меняем костюмы персонажа?
3. Для чего используется анимация в программе

#Python

#ответ B:

n = 1

num = []

while n != 0:

   n = int(input("Введите число : "))

   if n != 0:

       num.append(n)

num3 = []

for n in num:

   if int(n) % 3 == 0:

       num3.append(n)

print("Макс :", max(num3), " Мин :", min(num3))

#ответ C:

n = 1

num = []

while n != 0:

   n = int(input("Введите число : "))

   if n != 0 and len(str(n)) == 2:

       num.append(n)

num6 = []

for n in num:

   if int(n) % 10 == 6:

       num6.append(n)

if  num6 == True:

   print("Макс : ", max(num6))

else:

   print("Нет такого число!")

Объяснение:

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 у меня сейчас нет, так что проверяйте сами. Если что не так - сообщайте.