Мне нужна по информатике в общем мы делаем всё на pascal abc. и надо решить следующее: 1. найти сумму всех натуральных чисел от 1 до 100. 2. найти сумму кубов всех натуральных чисел от 11 до 50. 3. найти сумму всех двузначных нечётных чисел. 4. найти сумму квадратов всех натуральных чисел от 50 до 90. 5. найти сумму всех двузначных чётных чисел. заранее

1)

var i, sum: integer;

begin

   sum:= 0;

   for i:= 1 to 100 do sum:= sum + i;

   write(sum);

end.

2)

var i, sum: integer;

begin

   sum:= 0;

   for i:= 11 to 50 do sum:= sum + i * sqr(i);

   write(sum);

end.

3)

var i, sum: integer;

begin

   sum:= 0;

   for i:= 10 to 99 do if i mod 2 = 1 then sum:= sum + i;

   write(sum);

end.

4)

var i, sum: integer;

begin

   sum:= 0;

   for i:= 50 to 90 do sum:= sum + sqr(i);

   write(sum);

end.

5)

var i, sum: integer;

begin

   sum:= 0;

   for i:= 10 to 99 do if i mod 2 = 0 then sum:= sum + i;

   write(sum);

end.

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

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