Задание:
Составьте программу, заменяющую меньшее из двух данных чисел на среднее арифметическое этих чисел, а большее из двух данных чисел на среднюю геометрическуюэтих чисел help me! please
Решение:
program lkcfndsl; uses crt; var a,b,s,g: real; beginclrscr; readln (a,b); s: =(a+b) /2; g: =sqrt (a*b); if a>b then a: =g else a: =s; if b>a then b: =g else b: =s; writeln (a,b); readln; end. Надеюсь так понял.
Знаете другой ответ?