Program al;
var a: array[1..32000] of integer;
buf:integer;
i,n,min,max:integer;
begin
writeln('n=');
readln(n);
writeln('vvedite massiv=');
for i := 1 to n do
readln(a[i]);
min:=1;
max:=1;
for i:=2 to n do
begin
if a[min]>a[i] then
min:=i;
if a[max]<a[i] then
max:=i;
end;
buf:=a[min];
a[min]:=a[max];
a[max]:=buf;
writeln('Massiv posle obmena max<->min');
for i:=1 to n do
write(a[i]:4);
writeln;<span>
end.</span>
Прошу:)
var a, b, c, d: integer;
begin
readln(d);
a := d div 100;
b := d mod 100 div 10;
c := d mod 10;
writeln(b, c, a);
<span>end.
можно ещё сократить:
var a, b, c, d: integer;
begin
readln(d);
writeln(d mod 100 div 10, d mod 10, d div 100);
<span>end.
или даже:
var a, b, c, d: integer;
begin
readln(d);
a := d div 100;
writeln(d - a * 100, a);
<span>end.</span></span></span>
Т.к 30 символов, то умножаем на 2 и получаем 60 байт.Теперь умножаем на 8 и получаем 480бит.
Ответ:2
Var x,b,c,i :integer;
begin
c:=0;
writeln ('Введите первое число');
readln (x);
writeln ('Введите второе число');
readln (b);
if (x=8) and (b=5) then
c:=x*b;
writeln ('=',c);
end.
Var a,b,s
begin
readln
end.