1) Антивирус Kaspersky
2) WinRar
3) KMPlayer
4) Opera
5) Paint
6) Outlast
7) Linux
8) Microsoft Office PowerPoint
9) Pascal ABC
10) Excel
11) Microsoft Word
12) Wikipеdia
Var a:array[1..10000] of integer;
n,i,j,k,t:integer;
begin
readln(n);
for i:=1 to n do
read(a[i]);
j:=n;
repeat
k:=j;
j:=0;
for i:=1 to k-1 do
if a[i+1]j:=i;
t:=a[i];
a[i]:=a[i+1];
a[i+1]:=t;
for t:=1 to n do
write(a[t],' ');
writeln;
end;
until j=0;
if k=n then
writeln(0); //Если перестановок не было, программа выводит только число 0. Если эта команда не нужна, можешь ее убрать
end.
-17 = 1 0010001
Первая единица - знак числа"-"
Астрономия - космические тела
география - земная поверхность
биология - растительный и животный мир
история - прошлое человечества
технология - техничекие устройства
математика - колчественные отношения
информатика - информационные процессы
Var x,y,z:integer; a,b:real;
Begin
write('x='); readln(x);
write('y='); readln(y);
write('z='); readln(z);
a:=((2*x)+(3*y)-z)/(3+(2*x));
b:=((x*x)+4)/(abs(y)-2);
writeln('a=',a); writeln('b=',b);
End.