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.