patrat_p.pas

来自「This ar the basic programs that i did in」· PAS 代码 · 共 11 行

program patrat_perfect;
{sa se verifice daca un nr. e patrat perfect}
var n:integer;
begin
write('n= ');
readln(n);
if n<0 then write('un nr. negativ nu poate fi patrat perfect')
else
    if sqrt(n):integer then write('nr. ',n, 'este patrat perfect')
                       else write('nr. ',n, 'nu este patrat perfect');
end.