===== PascalABC.NET =====
begin
var n := ReadInteger;
Println(n div 100 + n mod 10)
end.
Var a:array[1..40] of integer;
i,s:integer;
begin
s:=0;
for i:=1 to 40 do begin
a[i]:=random(200)-100;
Writeln('a[',i,']=',a[i]);
if (a[i] mod 5=0) and (a[i]<0) then
s:=s+a[i];
end;
Writeln('Сумма отрицательных элементов кратных 5 равна: ',s);
<span>end.</span>
Выводятся такие значиния
k= 1 p=120
j=10 s= 20 j=11 s= 42 j=12 s= 66 j=13 s= 92 j=14 s= 120 j=15 s= 150
A) в 2:
273/2=136(1)
136/2=68(0)
68/2=34(0)
34/2=17(0)
17/2=8(1)
8/2=4(0)
4/2=2(0)
2/2=(1)
100010001
в 8:
273/8=34(1)
34/8=4(2)
4/8=(4)
421
в 16:
273/16=17(1)
17/16=1(1)
111
б) в 2:
661/2=330(1)
330/2=165(0)
165/2=82(1)
82/2=41(0)
41/2=20(1)
20/2=10(0)
10/2=5(0)
5/2=2(1)
2/2=1(0)
1/2=(1)
1010010101
в 8:
661/8=82(5)
82/8=10(2)
10/8=1(2)
1/8=(1)
1225
в 16:
661/16=41(5)
41/16=2(9)
2/16=(2)
295
в) в 2:
156/2=78(0)
78/2=39(0)
39/2=19(1)
19/2=9(1)
9/2=4(1)
4/2=2(0)
2/2=1(0)
1/2=(1)
2*0,25=0,5 (0)
2*0,5=1 (1)
10011100,01
в 8:
156/8=19(4)
19/8=2(3)
2/8=(2)
0,25*8=2 (2)
234,2
в 16:
156/16=9(12)
9/16=(9)
0,25*16=4 (4)
9C,4
г) в 2:
797/2=398(1)
398/2=199(0)
199/2=99(1)
99/2=49(1)
49/2=24(1)
24/2=12(0)
12/2=6(0)
6/2=3(0)
3/2=1(1)
1/2=(1)
0,5*2=1 (1)
1100011101,1
в 8:
797/8=99(5)
99/8=12(3)
12/8=1(4)
1/8=(1)
0,5*8=4 (4)
1435,4
в 16:
797/16=49(13)
49/16=3(1)
3/16=(3)
16*0,5=8 (8)
31D,8