Const
K = 13;
Var
A:array[1..K] of integer;
i,j:integer;
Begin
{Заполнение массива}
Write('Исходный массив: ');
For i:= 1 to K do
Begin
A[i]:=random(21)-10;
Write(A[i],' ')
End;
WriteLn;
{Сортировка пузырьком}
For i:= 1 to K do
For j:= 1 to K-1 do
if A[j]>A[j+1] then Swap(A[j],A[j+1]);
{Вывод массива}
Write('Отсортированный массив: ');
For i:= 1 to K do
Write(A[i],' ')
End.
32*62=1984 символа на странице
1984*16=31744 символов всего
31744 символов = 31744 байт англ. текст
31744/2=15872 байт русский текст
Var N: integer; sum: real; begin write('Введите количество чисел: '); readln(N); write('Введите числа: '); sum := 0; for var i := 1 to N do begin var x := ReadReal; sum += x; end; writeln('Сумма введенных чисел = ',sum); end.
171 из десятичной в шестнадцатеричную = <span>AB
206 </span> из десятичной в шестнадцатеричную =<span>CE
</span>171 из шестнадцатеричные в десятичную = <span>369
</span>206 из шестнадцатеричные в десятичную =<span>518</span>
<em>// PascalABC.NET 3.2, сборка 1379 от 21.01.2017</em>
begin
var a,y:real; Read(a,y);
Write((5+a)/(7-y))
end.
<u>Пример</u>
5.2 -3.11
1.00890207715134