Kvadratine Saknis (Pascal)

Sveiki, taigi turiu klausima, kaip nustatyti skaicius is kuriu normalei traukiasi saknis. Pvz .: Turim skaicius 100, 500 ir 900. Tai man reik kad isvestu tik 100, ir 900 nes jie traukiasi be liekanos.

na jei reikia nustatinėti skaičius 0-1 000 000 rėžiuose, ko dažnai prašo visokiose paprastose užduotyse, tai paprasčiausias dalykas yra prasukti ciklą keliant kiekvieną sveikąjį skaičių kvadratu ir žiūrėti ar atitinka duotus skaičius. Dar galima padaryti, kad kai pakeltas kvadratu skaičius didesnis už duotąjį, nustotų veikt programa ir toliau be reikalo neskaičiuotų. (:

Ne, reikia is duotu manim skaiciu(ju gali buti ir daug daugiau) nustatyti ar isitraukia saknis be liekanos ar ne.

Ne, reikia is duotu manim skaiciu(ju gali buti ir daug daugiau) nustatyti ar isitraukia saknis be liekanos ar ne.

tikrink at skaičius po ištraukimo turi liekana ar ne, jei išsitraukia liekanos nebūna - išvesk. kitu atveju nedaryk nieko.

http://www.freewebs.com/pascalpamokos/4p.htm

Na as tai jau bandziau bet kaip istrauki sakni, tai jau negali tikrint liekanos, meta klaida kad blogas tipas.

var a : integer;
b, c  : real;
begin
 a := 25;
 b := sqrt(a);
 c := b mod 2;
 Readln;
end.

Ištrauk iš skaičiaus šaknį, suapvalink jį ir palygink su gautu ištraukus šaknį. Jei nelygu - neišvesk.

program Saknis;
   var
       a:longint;
       x,y:real;
begin
 WriteLn('Iveskite skaiciu: ');
 Readln(a);
 x:=sqrt(a);
 y:=round(x);
 if x = y then writeln('Saknis yra: ',x:6:0) else
   writeln('Traukiasi belekokia saknis');
 Readln;
end.

jo aciu padejo