№1
37 = 100101
64 = 1000000
121= 1111001
307= 100110011
511 = 111111111
91 = 1011011
366 = 101101110
404 = 110010100
717 = 1011001101
1228 = 10011001100
№2
101010= 42
100100=36
11111= 31
101110= 46
1100011=99
1001010=74
1100010000=784
101110001=369
1000001=65
1011001=89
Рассмотрим минимальное число в 8й СС с четырьмя цифрами:
1000₈ = 00<span>10 0000 0000</span>₂ = 200₁₆.
Первое же число удовлетворяет условию. Переведем его в 10 СС
2 * 16² = 512₁₀
Ответ: 512
Вайп - полное удаление информации
Program pr;
uses crt;
Var a,b,c:integer;
H,F,x,x1,x2:real;
Begin
Writeln('Шаг');
readln(H);
Writeln(' a,b,c');
readln(a,b,c);
Writeln('промежуток X нач ,X кон ');
readln(x1,x2);
x:=x1;
While x<=x2 do
Begin
if (c<0) and (b<>0) then
Begin
F:=(a*x*x)+(b*b*x);
Writeln('x=', x:6:2, ' F=',F:6:2);
x:=x+H;
end
else
if (c>0) and (b=0) then
Begin
F:=(x+a)/(x+c);
Writeln('x=', x:6:2, ' F=',F:6:2);
x:=x+H;
end
else
Begin
F:=x/c;
Writeln('x=', x:6:2, ' F=',F:6:2);
x:=x+H;
end;
end;
readln;
end.
//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
var i,n:integer;
begin
readln(n);
for i:=1 to n do writeln(i,'*',i,' = ',i*i);
end.