Никак блин.Лол кек чебурек
8 = 2 в 3 степени.
будет два в степени 90 + 2 в степени 300, получится 2 в степени 390, то есть. 390 нулей.
Ответ: 390
Program chislo;
<span>Var x, y, a, b :integer; </span>
<span>begin </span>
<span>for x:=10 to 99 do </span>
<span>begin </span>
<span>a:=x div 10; {1 цифра} </span>
<span>b:=x mod 10; {2 цифра} </span>
<span>y:= a*1000+a*100+b*10+b; {вставили между цифрами это же число} </span>
<span>if (y div x = 99) and (y mod x = 0) then writeln ('Искомое число = ', x) </span>
<span>end; </span>
<span>end.</span>
Задача 1.
Var
A:integer;
S:real;
Begin
S:=0;
For A:= 120 to 300 do
S:=S+A;
WriteLn('S = ',S);
End.
Результат работы программы:
S = 38010
<span>Задача 2.
Var S:real;
n,A:integer;
Begin
n:=0;
S:=0;
For A:= 15 to 100 do
if A mod 10 = 6 then
Begin
S:=S+A;
n:=n+1
End;
WriteLn('Sr = ',S,'/',n,' = ',S/n);
End.</span>
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>