Даны 2 числа. Большее из этих чисел поделить на 2. Меньшее возвести в квадрат. Вывести сумму этих чисел

Question

Информатика

Всеслава

9 октября, 06:28

Даны 2 числа. Большее из этих чисел поделить на 2. Меньшее возвести в квадрат. Вывести сумму этих чисел

+3

Ответы (1)

Знаете ответ на вопрос?

Матфий · Answer 1

Var a, b, c:real;

begin

writeln ('введите два числа') ;

readln (a, b) ;

if a>b then begin

a:=a/2;

b:=sqr (b) ;

c:=a+b;

writeln (c)

end

else

begin

b:=b/2;

a:=sqr (a) ;

c:=a+b;

writeln (c) ;

end;

end.