Program by_Relhem;
var a,b,c,S:real;
begin
writeln ('Введите гипотенузу и катет, разделяя их пробелом');
read (a,b);
if a>b then
c:=sqrt(sqr(a)-sqr(b));
if b>a then
c:=sqrt(sqr(b)-sqr(a));
S:=0.5*(a*b);
writeln ('Катет: ',c, ' Площадь: ',S);
end.
<span>
1. 56</span>₁₀-> X₂
<span><span>56/2=28 остаток 0
</span><span>
28/2=14 остаток 0
</span>
<span>
14/2=7 остаток 0
</span>
<span>
7/2=3 остаток 1
</span>
<span>
3/2=1 остаток 1
</span>
1/2=0 остаток 1
</span>56₁₀ = 111000₂
2.
176₁₀-> X₂<span>
<span><span>176/2=88 остаток 0
</span><span>
88/2=44 остаток 0
</span>
<span>
44/2=22 остаток 0
</span>
<span>
22/2=11 остаток 0
</span>
<span>
11/2=5 остаток 1
</span>
<span>
5/2=2 остаток 1
</span>
<span>
2/2=1 остаток 0
</span>
<span>
1/2=0 остаток 1
</span>
</span></span>176₁₀ = 10110000₂
<span>3.
</span>10001₂->X₁₀
2^4+2^0=17
10001₂ = 17₁₀
4.
101011₂->X₁₀
2^5+2^3+2^1+2^0=43
10001₂ = 43₁₀
Тут скорее всего первым выполняется ответ под номером 2
1) var a: array[0..10] of integer; i, s: integer;
begin
for i := 1 to 10 do begin
a[i] := random(60);
write(a[i], ' ');
if a[i]<=20 then s:=s+a[i];
end;
writeln;
writeln(s);
<span>end.
2) </span>var a: array[0..10] of integer; i, s: integer;
begin for i := 1 to 10 do begin
a[i] := random(60);
write(a[i], ' ');
// if (i mod 2=1) then s:=s+a[i]; Раскоментируй, если сумму нужно искать среди нечетных номеров элементов.
// if (a[i] mod 2=1) then s:=s+a[i]; Раскоментируй, если сумму нужно искать среди самих нечетных элементов.
end;
writeln;
writeln(s);
end.
B = int(input("b = "))
for a in range(b+1, 501, 2):
x = a*a-b*b
y = 2*a*b
z = a*a+b*b
print('(%d; %d; %d); (a=%d; b=%d); (%.4f; %.4f)' % (x,y,z,a,b,x/z,y/z))
Пример:
<span>b = 10
(21; 220; 221); (a=11; b=10); (0.0950; 0.9955)
(69; 260; 269); (a=13; b=10); (0.2565; 0.9665)
(125; 300; 325); (a=15; b=10); (0.3846; 0.9231)
...
</span><span>(246909; 9940; 247109); (a=497; b=10); (0.9992; 0.0402)
(248901; 9980; 249101); (a=499; b=10); (0.9992; 0.0401)</span>