Var A:integer;
Begin
WriteLn('Введи число');
ReadLn(A);
if (A>9)and(A<100) then Write('Да')
else WriteLn('Нет')
End.
Var
A:integer;
Begin
WriteLn('Введи число');
ReadLn(A);
if A>9 then Begin
if A<100 then WriteLn('Да')
else WriteLn('Нет')
End
else WriteLn('Нет')
End.
N=256 I=8 бит(1 символ)
информационый объем равен 1024*8=8192 бита
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>
Begin
for var i=1 to n do
Writeln(i);
end.