Program n_1;
var a:array [1..1000] of integer; i, buf:integer;
begin
for i:=1 to 1000 do begin
read(a[i]);
buf:=a[i];
while buf>9 do buf:=buf div 10;
if buf>a[i] mod 10 then write(a[i], ' ');
end;
end.
Var
s,i : integer;
begin
s :=0;
for i := 2 to 6 do
s := s + sqr(i);
writeln (s);
end.
1вг
2абг
3 б 11101110111
4в
5 501
6гвба
7б
8б
9г(переменных)
10в
11в
12 96
13 38с4
1 - 3
2 - 4
3 - 5
4 - 1
5 - 2
6 - 8
7 - 6
8 - 7
9 - 11
10 - 12
11 - 13
12 - 10
13 -9
1)
8×10^4+7×10^3+6×10^2+5×10^1+4×10^0
11×16^3+12×16^2+13×16+3
7×8^4+5×8^3+3×8^2+1×8+1×8^0
2^4+2^2+2^1
2)
3586 (10)=2048+1024+512+2=111 000 000 010(2)=7002(8)=D02(16)
11257 (10)=8192+2048+1024+2+1=010 110 000 000 011(2)=25003(8)=2C03(16)
328(10)=256+64+8=101 001 000(2)=510(8)=148 (16)
512 (10)=001 000 000 000(2)=1000 (8)=200(16)