Question

Вводится натуральное число. Определить, является ли оно полным квадратом.Pascal

Answer 1

// 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

n= 202293728
Это неполный квадрат

n= 202293730
Это неполный квадрат

Answer 2

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.

Answer 3

Для определения, является ли введенное натуральное число полным квадратом, можно использовать следующий алгоритм:

1. Вводится натуральное число. 2. Вычисляется квадратный корень из этого числа. 3. Если полученное значение является целым числом, то исходное число является полным квадратом. В противном случае, оно не является полным квадратом.

Вот пример кода на языке Pascal, реализующий этот алгоритм:

program CheckPerfectSquare;
var
  num, squareRoot: integer;
begin
  writeln('Введите натуральное число: ');
  readln(num);

squareRoot := round(sqrt(num));

if squareRoot * squareRoot = num then
    writeln('Число является полным квадратом.')
  else
    writeln('Число не является полным квадратом.');
end.

Пожалуйста, обратите внимание, что в данном коде используется функция `sqrt` для вычисления квадратного корня и функция `round` для округления значения до целого числа. Также, ввод и вывод данных осуществляются с помощью процедур `readln` и `writeln` соответственно.

Надеюсь, это поможет! Если у вас возникнут дополнительные вопросы, не стесняйтесь задавать.