Un kas tu būsi par programmētāju, ja visus jautājumus prasīsi taisīt citiem?

pasdziedējs nepalīdz? Viņš par to saņem algu.
bet vispār
tuvākā divnieka pakāpe no skaitļa N vienmēr būs kvadrātsakne no šī skaitļa.
Tāpēc N, x; real;
x:=SQRT(N);writeln ('Tuvaka divnieka pakape ir ', sqrt(N):0:0, ';')
0:0 nozime, ka noapaļos vērtību uz tuvāko veselo skaitli, tālak jataisa salīdzinajums
if (2^x>N) then
x:=x-1 ; writelen (' Tuvaka pakape ir ');

bet te čakars kapinasanu pascal!

uzkodēju tev, tiesa gan netradicionālā veidā, bet ja nav īpaši kodēšanas nosacījumu tad derēs.
program kapinatajs;
var N,X:real;
Kapinasana:real;

begin
  writeln ( 'Programma  tuvakas divnieka pakapes noteiksanai');

writeln('Ievadi skaitli N !');
readln(N);
X:=SQRT(N);
Kapinasana := Exp(2*Ln(X));
if (Kapinasana>=N) then
writeln ('Tuvaka divnieka pakape no N ir ', X-1:0:0, ';')
else
writeln ('Tuvaka divnieka pakape no N ir ', sqrt(N):0:0, ';');
readln(X);
end.

@shadowmangb: kvadrātsakne pavisam noteikti nav pareizā atbilde. Piemērs: n=1000, atbildei jābūt 9, nevis 31.

Rekur variants, kas varētu strādāt daudzmaz korekti. Paskaidrojumu, kāpēc tas darbojas meklē algebras grāmatā.

readln(n);
if n > 2 then x := ln(n-1)/ln(2) else x := 0;
writeln(x:0:0);