Var
a, b, c, t: integer;
begin
readln(a, b, c);
if c > b then begin
t := b;
b := c;
c := t;
end;
if c > a then begin
t := a;
a := c;
c := t;
end;
writeln(a + b);
end.
,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
__
( 0 )
_ | _
\ \ | / /
-----------------
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 у меня сейчас нет, так что проверяйте сами. Если что не так - сообщайте.
Решения задач - в прилагаемом файле (Visual Basic, консольное приложение)
A=6
s=0
a=2? нет
s=s+a=0+6=6
a=a-1=6-1=5
a=2? нет
s=s+a=6+5=11
a=a-1=5-1=4
a=2? нет
s=s+a=11+4=15
a=a-1=4-1=3
a=2? нет
s=s+a=15+3=18
a=a-1=3-1=2
a=2? да
Ответ: s=18