8 00-8 45
8 50-9 35
9 40-10 25
10 30- 11 15
11 20-12 05
<span>276 = 100010100
276 постоянно делишь на 2, и остаток записываешь с конца к началу
</span><span>276/<span>2=138 остаток 0
</span></span><span>138/<span>2=69 остаток 0
</span></span><span>69/<span>2=34 остаток 1
остаток 0
остаток 1
остаток 0
</span></span>остаток <span>0
</span>остаток <span>0
</span>остаток 1
Program n1;
var sum,kp,ko,a: integer;
begin
readln(a);
sum:=0;
ko:=0;
kp:=0;
while a<>0 do
begin
sum:=sum+a;
if a>0 then kp:=kp+1
else ko:=ko+1;
readln(a);
end;
writeln(sum);
writeln(kp-ko);
end.
1.
А) Истина
Б) Истина
В) Ложь
Г) Истина
Д) Ложь
2.
d f d^f d\/f -d -f
1ложь ложь ложь ложь истина истина
2ложь истина ложь истина истина ложь
3истина ложь ложь истина ложь истина
4истина истина истина истина ложь ложь
Var a,d,b,s:real;
begin
write('a = '); readln(a);
write('d = '); readln(d);
b:=sqrt(d*d-a*a);
s:=a*b;
writeln('S = ',s);
end.
Пример:
a = 4
d = 5
S = 12