Var a,a1,a2,a3,a4,b:integer;
begin
write('a = ');
readln(a);
a1:=a div 1000;
a2:=a div 100 mod 10;
a3:=a mod 100 div 10;
a4:=a mod 10;
b:=a1*1000+a3*100+a2*10+a4;
writeln('b = ',b);
end.
Пример:
a = 4682
b = 4862
Var
a, b:integer;
f,w:text;
begin
assign(f,'input.txt');reset(f);
assign(w, 'output.txt');rewrite(w);
Readln(f, a, b);
if (a > b) then Writeln(w, '>');
if (a < b) then Writeln(w, '<');
if (a = b) then Writeln(w, '=');
close(f);close(w);
end.
<u>Пример:
</u>input.txt: 100 99
output.txt : >
<u></u>
Компьютерные вирусы - это ненужное, вредное для компьютера, т.е то, что удаляет все файлы, при проникновении в компьютер, н/р: через диски, флешки, всякие сайты.
Антивирусные программы- это то, что истребляет компьютерные вирусы. Это полнейшая противоположность, поэтому общего у них вообще не будет.
Если это звуковой файл, то увеличить частоту дискретизации