1)
var
a,b : integer;
begin
readln (a,b);
if a > b then
b := a +b;<span>
writeln (a,' ',b);
end.</span>
1)
var
i,k:integer;
a:array [1..14] of integer;
begin
k:=0;
for i:=1 to 14 do
begin
a[i]:=random(46)-15;
write(a[i]:3);
if a[i] mod 2=0 then k:=i;
end;
if k>0 then
begin
for i:=k to 13 do a[i]:=a[i]+1;
a[14]:=0;
end;
writeln;
for i:=1 to 14 do write(a[i]:3);
end.
2)
var
i,k:integer;
a:array [1..14] of integer;
begin
for i:=1 to 14 do
begin
a[i]:=random(46)-15;
write(a[i]:3);
end;
for i:=1 to 7 do
begin
k:=a[i];
a[i]:=a[i+7];
a[i+7]:=k;
end;
writeln;
for i:=1 to 14 do write(a[i]:3);
end.
Program lol;
Var
x,y:integer;
p:boolean;
Begin
Readln(x,y);
P:= (x>2) and (y>3);
Writeln(p)
<span>End.</span>
Вот первое задание:
215=2 * 6^2 + 1 * 6^1 + 5 * 6^0=83
0.017=1 * 8^(-2) + 7 * 8^(-3)=0.1428
128.23=9^2 + 2 * 9^1 + 8 + 2 * 9^(-1) + 3 * 9^(-2)=107,259
Второе:
а) AF=10101111
36=11110
(1111101+10101111)-11110=100001110=2^8 + 2^3 + 2^2 + 2=270
б)125=1010101
A2=10100010
1417=1100001111
1010101+11101*10100010-1100001111=111110100000=2^11 + 2^10 +2^9 + 2^8 + 2^7 + 2^5=4000