Там нет конкретного описания что к дочке пойдет Коля Сидоров
Переведите число 176₁₀ в 2-ичную систему счисления.
176₁₀ = 10110000₂ , но оно должно занимать ровно 16 бит памяти, следовательно, нужно дописать слева столько нулей, сколько не хватает до 16.
Ответ: 0000000010110000
const
N = 50;
var
a:array[1..N] of integer;
b:array[1..N] of real;
i:integer;
begin
randomize;
for i := 1 to N do
begin
a[i]:=100-random(201);
b[i]:=sqr(a[i])/(i+a[i]);
writeln('a[',i,']=',a[i],'; b[',i,']=',b[i]:5:3);
end;
end.