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

Question

Информатика

Вилена

8 декабря, 12:39

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

+1

Ответы (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.