Question

Даны 10 чисел, вывести те из них, которые являются полными квадратами. Составить программу паскаль.

Answer 1

const

 n = 10;

var

 i, x, q: integer;

begin

 for i := 1 to n do

   begin

   read(x);

   q := trunc( sqrt(x) );

   if sqr(q) = x then

     write(x,' ');

   end;

end.

Answer 2

Вот пример программы на языке Pascal, которая выводит числа из заданного списка, являющиеся полными квадратами:

pascalCopy code
program SquareNumbers;

var
  numbers: array[1..10] of Integer;
  i: Integer;

begin
  writeln('Введите 10 чисел:');
  for i := 1 to 10 do
  begin
    readln(numbers[i]);
  end;

  writeln('Полные квадраты из заданного списка:');
  for i := 1 to 10 do
  begin
    if sqrt(numbers[i]) = Trunc(sqrt(numbers[i])) then
    begin
      writeln(numbers[i]);
    end;
  end;

  readln;
end.

Эта программа просит пользователя ввести 10 чисел и затем выводит те числа из этого списка, которые являются полными квадратами. Она использует встроенную функцию sqrt для вычисления квадратного корня числа и функцию Trunc для округления результата до целого числа.