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

Question

36

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

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

ответить

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

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

gafes · Accepted Answer

59

gafes

20 февраля 2023

Uses crt; var a,b,c: real; begin read (a,b); c: =a; if a>b then begin a: =2*a*b; b: =(c+b) /2; end else begin a: =(a+b) /2; b: =2*c*b; end; writeln; write (a,',b); end.

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

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

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

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