Пара это 1 и 2 , 3 и 4 , 90 и 45 смотря что задают
Var n,i:integer;
begin
read (n);
if (n>=1)then begin
for i:=0 to n do
begin
if (i*2+i*i+1)<=n then writeln (i*2+i*i+1);
end;
end else writeln ('Нет таких чисел');
end.
//PascalABC.NET версия 3.3
begin
arrrandom(100, -500, 500).Println.Max.Println;
end.
пример работы программы:
-227 -148 483 325 -183 -270 -242 -51 -494 -322 -189 -294 -367 438 -321 -74 -342 -342 -221 -20 1 179 -250 177 -457 438 -74 48 -161 411 148 -444 -207 -100 85 -342 -71 -16 309 -394 490 82 -45 -172 -144 -102 -444 364 -377 -75 -409 206 48 431 -64 94 -398 -195 281 -120 304 210 -391 -404 31 -246 414 233 -148 -480 498 174 -151 -328 -10 419 -276 423 -180 146 381 63 -75 415 320 443 9 -137 465 492 -444 -376 203 -71 -198 -220 -27 -142 297 -398
498
N=16
i=?
N=2^i, 16=2^i,i=4 (бита) (16 –это количество комбинации(вариантов),i-сообщении
о том, что произошел один из возможных вариантов события)
<span>Ответ: 4 бита содержит сообщение</span>
Ответ-50.
Программа с помощью которой я это вычислил [Pascal].
program abc;
var sum,i,k,n:longint;
a,b:array[1..200]of longint;
begin
for n:=1 to 200 do A[n]:= n+100;
for n:=1 to 200 do begin B[n]:= 2*A[n]-500;
if b[n]>0 then k:=k+1; end;
write(k);
end.