// PascalABC.NET 3.1, сборка 1172 от 19.02.2016 begin var n:=ReadInteger('n='); var k:=Trunc(sqrt(n)); if sqr(k)=n then Writeln('Это полный квадрат числа ',k) else Writeln('Это неполный квадрат') end.
Тестовые запуски: n= 202293729 Это полный квадрат числа 14223
Var n,i,o: integer; begin read(n); while i<=n do Begin if sqr(i) = n then Begin write('Да, число ',n,' является квадратом чилса ',i); o:=1; end; i:=i+1; End; if o<>1 then write('Это число не полный квадрат'); end.
begin
var n:=ReadInteger('n=');
var k:=Trunc(sqrt(n));
if sqr(k)=n then Writeln('Это полный квадрат числа ',k)
else Writeln('Это неполный квадрат')
end.
Тестовые запуски:
n= 202293729
Это полный квадрат числа 14223
n= 202293728
Это неполный квадрат
n= 202293730
Это неполный квадрат
begin
read(n);
while i<=n do Begin
if sqr(i) = n then Begin write('Да, число ',n,' является квадратом чилса ',i); o:=1; end; i:=i+1;
End;
if o<>1 then write('Это число не полный квадрат');
end.