Составьте программу, заменяющую меньшее из двух данных чисел…

Question

Составьте программу, заменяющую меньшее из двух данных чисел на среднее арифметическое этих чисел, а большее из двух данных чисел на среднюю геометрическуюэтих чисел help me! please

Answer 1

96

yurkentiy1

11 февраля 2023

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. Надеюсь так понял.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: