1) Неправильное задание кажется, получается не целое выражение
1369875 (Бит) =
(Гб)
2) 5 (Гб) = 5*1024*1024*1024= 5 368 709 120 (Байт)
3) Переводим объём диска в Кб
700 (Мб) = 716 800 (Кб)
файлов поместится на диске размером 12457 (Кб)
13,31,15,51,57,75,53,35,71,17,73,37.
var
y,n:integer;
x:real;
begin
n:=1;
write('x= ');
readln(x);
write('y= ');
readln(y);
while x < y do <em>begin</em>
inc(n);
x:=x*1.1;
<em>end;</em>
writeln(n);
<span>end.</span>
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 у меня сейчас нет, так что проверяйте сами. Если что не так - сообщайте.
