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

Question

57

Составьте программу, заменяющую меньшее из двух данных чисел на среднее арифметическое этих чисел, а большее из двух данных чисел-на произведение этихчисел. Помогите пожалуйста, очень надо!

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

masterf · Accepted Answer

48

masterf

02 апреля 2023

var x,y,k: real; beginreadln (x,y); if x>y then begin k: =y; y: =(y+x) /2; x: =x*k endelse begin k: =x; x: =(x+y) /2; y: =y*k; end; writeln (x,y,); end.

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

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

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

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