Var
n, k, i, imax, j: integer;
a: array[1..100]of integer;
begin
randomize;
n := random(30) + 10;
for i := 1 to n do
begin
a[i] := Random(30);
write(a[i], ' ');
end;
writeln();
{сортировочка}
for i := 1 to n - 1 do
begin
imax := i;
for j := i + 1 to n do
if a[j] > a[imax] then
imax := j;
k := a[i];
a[i] := a[imax];
a[imax] := k;
end;
for i := 1 to n do
write(a[i], ' ');
k := 0;
for i := 2 to n - 1 do
if (a[i] <> a[i - 1]) and (a[i] <> a[i + 1]) then
k := k + 1;
if a[1] <> a[2] then k := k + 1;
if a[n] <> a[n - 1] then k := k + 1;
writeln();
writeln('No doubles - ', k);
end.
1Текстовый файл, содержащий заявления, заголовки, функции и другие данные, на которые ссылается исходный код программы. Может использоваться в C/C++, Pascal, Java, PHP (веб-страницы) и других языках.
257 = 100000001(2)
Для записи числа 257 в двоичной системе счисления необходимо 9 разрядов ⇒ для хранения этого числа требуется 2 байта.
Uses crt;
var a,b,c,i,i_:integer;
begin
write('Введите 1 число: ');
readln(a);
write('Введите 2 число: ');
readln(b);
write('Введите 3 число: ');
readln(c);
i:=a+b+c;
i_:=a*b*c;
writeln('Сумма: ',i);
writeln('Произведение: ',i_);
<span>end.</span>
//PascalABC.NET
var i:integer;
begin
for i:=1 to 10 do
writeln(i,'*6=',i*6);
<span>end.</span>