1. дом.bmp. потому что это графический файл, а все остальные текстовые.
2. лето.Jpg, это графический файл, потому что к графическим файлам относятся: bmp. jpg. gif.
1
2
3
4
5
6
7
8
9
10
11
12
13
14 procedure TForm1.Button1Click(Sender: TObject);
var
k,i,j:integer;
begin
k:=10;
for i:=1 to 90 do begin
if (k mod 7)=0 then begin
j:=j+1;
stringgrid1.cells[1,i]:=inttostr(k);
end;
k:=k+1;
end;
label1.Caption:=inttostr(j);
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 у меня сейчас нет, так что проверяйте сами. Если что не так - сообщайте.
Это невозможно. Т.К в большинстве кодировок нужно минимум 8 бит на символ
1) Если подразумевается a>=0, то верно.
2) Неверно, нужны скобки: (x > 0) or (y < 0)
3) Если подразумевается c <> 10, то верно.
4) Верно.
5) Неверно.
6) Неверно.
7) Неверно.
8) Неверно.
9) Если в 9 x>=y, то верно (если есть 9).
10) Верно.
11) Неверно, можно исправить так: (x = y) and (y = z).
Ответ: 1, 3, 4, 10.