Напишите программу на языке паскаль. Надо заменить меньшее из двух данных чисел на их среднее арифметическое а большее из них на среднее геометрическое.

Question

Информатика

Кона

8 октября, 07:31

Напишите программу на языке паскаль. Надо заменить меньшее из двух данных чисел на их среднее арифметическое а большее из них на среднее геометрическое.

+1

Ответы (1)

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

Яна · Answer 1

Var

a, b, sa, sg: real;

begin

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

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

sa: = (a + b) / 2;

sg:=sqrt (a * b) ;

if a < b then begin

a : = sa;

b : = sg;

end

else begin

a : = sg;

b : = sa;

end;

writeln ('a = ', a:0:2, ' ', 'b = ', b:0:2) ;

end.