Question

В Паскале.Введите целые числа a,b,с.Найдите сумму квадратов каждого из чисел и поделите на корень наибольшего из трёх чисел

Answer 1

var

   a, b, c : integer;

   

begin

   write('введите a ');

   readln(a);

   write('введите b ');

   readln(b);

   write('введите c ');

   readln(c);

   writeln((sqr(a)+sqr(b)+sqr(c))/sqrt(max(a, max(b, c))));

end.

протестировано в PascalABC.Net

Answer 2

Пусть а=2, б=3, с=4
2²=4, 3²=9, 4²=16
4+9+16=29
√4=2
29÷2= 14.5

Answer 3

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

pascalCopy code
program SumOfSquaresAndDivide;
var
  a, b, c: integer;
  sumOfSquares, maxNumber, result: real;
begin
  writeln('Введите целые числа a, b, c:');
  readln(a, b, c);

  { Находим сумму квадратов }
  sumOfSquares := a * a + b * b + c * c;

  { Находим наибольшее из трех чисел }
  maxNumber := a;
  if b > maxNumber then
    maxNumber := b;
  if c > maxNumber then
    maxNumber := c;

  { Вычисляем результат }
  result := sumOfSquares / sqrt(maxNumber);

  writeln('Сумма квадратов: ', sumOfSquares);
  writeln('Корень наибольшего числа: ', sqrt(maxNumber));
  writeln('Результат: ', result:0:2);
end.

При запуске программы вы сможете ввести значения для переменных a, b и c. Затем программа найдет сумму квадратов чисел и наибольшее из них, после чего выполнит указанные вычисления и выведет результат.