//задача 1program _sqrt;var ar:array[1..100] of integer;i:integer;Res:real;beginfor i:=1 to 100 do ar[i]:=i;for i:=1 to 100 do if ar[i] mod 2=0 then res:=res+ar[i];res:=sqrt(res);write(res);end. //задача 2. 100 элементов слишком много для произведенияprogram _sqrt;var ar:array[1..10] of integer;i:integer;res:int64;beginres:=1;for i:=1 to 10 dobeginar[i]:=i;res:=res*sqr(ar[i]);end;write(res);end. //задача 3program _sqrt;var ar:array[1..100] of integer;i:integer;res:int64;beginfor i:=1 to 100 dobeginar[i]:=i;if ar[i] mod 2=1 then res:=res+ar[i];end;write(res);end.
1) 73=1001001 (2) 2)91=1011011 (2)
44=101100 (2) 28=11100 (2)
+1001001 -1011011
101100 11100
1110101= 117 (10) 111111=63 (10)
3)27=11011 (2)
5=101 (2)
*11011
101
+ 11011
00000
11011
10000111=135
4)70=1000110 (2)
7=111 (2)
- 1000110 | 111
111 |
1010= 10 (10)
-111
111
0