Question

Программа Паскаль. 1.Запрашивает 3 числа и проверяет,является ли их сумма квадратом какого-либо целого числа.2.Запрашивает 3 числа и проверяет,является ли их среднее геометрическое целым числом.

Answer 1

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016 - №1
begin
  var a,b,c:integer;
  Write('Введите три натуральных числа: '); Read(a,b,c);
  var s:=a+b+c;
  var k:=Trunc(sqrt(s));
  if k*k=s then Writeln('Сумма чисел - квадрат ',k)
  else Writeln('Сумма чисел не является квадратом целого')
end.

Тестовое решение
Введите три натуральных числа: 13 4 8
Сумма чисел - квадрат 5

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016 - №2
begin
  var a,b,c:integer;
  Write('Введите три натуральных числа: '); Read(a,b,c);
  var s:=power(a*b*c,1/3);
  if s=int(s) then Writeln('Среднее геометрическое - целое число')
  else Writeln('Среднее геометрическое - нецелое число')
end.

Тестовое решение
Введите три натуральных числа: 16 8 15
Среднее геометрическое - нецелое число

Answer 2

Program in Pascal to Check for Sum of Squares and Geometric Mean

To achieve the two tasks mentioned, we can write a program in Pascal. Let's break down the requirements and write the code for each task separately.

Task 1: Check if the Sum of 3 Numbers is a Perfect Square

To accomplish this task, we need to prompt the user for three numbers and then check if their sum is a perfect square.

program CheckSumOfSquares;
var
  num1, num2, num3, sum: integer;
begin
  writeln('Enter three numbers: ');
  readln(num1, num2, num3);
  
  sum := num1 + num2 + num3;
  
  if (sqrt(sum) = round(sqrt(sum))) then
    writeln('The sum of the three numbers is a perfect square')
  else
    writeln('The sum of the three numbers is not a perfect square');
end.

Task 2: Check if the Geometric Mean of 3 Numbers is an Integer

For this task, we will prompt the user for three numbers and then check if their geometric mean is an integer.

program CheckGeometricMean;
var
  num1, num2, num3: real;
  geometricMean: real;
begin
  writeln('Enter three numbers: ');
  readln(num1, num2, num3);
  
  geometricMean := power(num1 * num2 * num3, 1/3);
  
  if (frac(geometricMean) = 0) then
    writeln('The geometric mean of the three numbers is an integer')
  else
    writeln('The geometric mean of the three numbers is not an integer');
end.

These programs prompt the user for input, perform the necessary calculations, and then provide the desired output based on the conditions specified.

Feel free to try running these programs and inputting different sets of numbers to see the results!