Question

Помогите пожалуйста! Даны три действительных числа. Вычислить корень квадратный из четных чисел и возвести во 2 степень нечетные числа. Задание необходимо выполнить в одной из доступных версий программы Pascal

Answer 1

var a, b, c: real;

   i:integer;

begin

 Read(a, b, c);

 if Round(a) mod 2 = 0 then Writeln(sqrt(a)) else Writeln(a**2);

 if Round(b) mod 2 = 0 then Writeln(sqrt(b)) else Writeln(b**2);

 if Round(c) mod 2 = 0 then Writeln(sqrt(c)) else Writeln(c**2);

end.

Answer 2

Конечно, я помогу вам написать программу на языке Pascal для выполнения указанных действий. Вам нужно ввести три числа и затем выполнить соответствующие операции в зависимости от того, является ли число четным или нечетным.

Вот пример программы:

pascalCopy code
program CalculateSquareRootAndSquare;
var
  num1, num2, num3, result1, result2, result3: real;
begin
  writeln('Введите три числа:');
  readln(num1, num2, num3);

  { Вычисляем квадратный корень четных чисел и возводим нечетные числа в квадрат }
  if num1 mod 2 = 0 then
    result1 := sqrt(num1)
  else
    result1 := sqr(num1);

  if num2 mod 2 = 0 then
    result2 := sqrt(num2)
  else
    result2 := sqr(num2);

  if num3 mod 2 = 0 then
    result3 := sqrt(num3)
  else
    result3 := sqr(num3);

  { Выводим результаты }
  writeln('Результаты:');
  writeln('Для числа ', num1, ': ', result1);
  writeln('Для числа ', num2, ': ', result2);
  writeln('Для числа ', num3, ': ', result3);
end.

Вы можете запустить эту программу в среде Pascal для ввода трех чисел и получения результатов вычислений.