------------------------------------
| X X |
| |
| X |
| |
| |
| X X |
------------------------------------
X - это стулья.
Uses crt;
var a:integer;
begin
a:=10000;
repeat
if (a mod 133=125) and (a mod 134=111) then writeln(a);
a:=a+1;
until a>99999;
end.
1. по ячейке кликните правой кнопкой - формат ячеек - вкладка выравнивание - поставить галочку возле переносить по словам - ок
2. по ячейке кликните правой кнопкой - формат ячеек - вкладка выравнивание - по горизонтали (нажимаете на стрелочку) и выбираете, также по вертикали нажимаете на стрелочку и выбираете - ок
3. тут смотря какой микрософт стоит:
- можно начать на диаграмму правой кнопкой и формат области диаграммы и выбрать подписи данных - ок
Примеры исполнителей:
- Человек;
- Животное;
- Техническое устройство.
<span>Сортировка методом пузырька (по возрастанию)
procedure MassivSort(var arr : array of Real; const N : Integer);var I: Integer; J: Integer; K: Integer; M: Real;begin for i:=1 to N do begin m:=Arr[i-1]; k:=i; for j:=i to n do begin if m>Arr[j-1] then begin m:=Arr[j-1]; k:=j; end; end; Arr[k-1]:=Arr[i-1]; Arr[i-1]:=m; end;end;
Сортировка по убыванию:
<span>procedure sort;
var i , j , tmp : integer;
begin
for i := 1 to n - 1 do
for j := i + 1 to n do
if a[i] < a[j] then begin
tmp := a[i];
a[i] := a[j];
a[j] := tmp;
end<span>;</span></span>
</span>