Даны два числа x и y (x y). меньшее из чисел заменить их полусуммой. составить программу

Question

Информатика

Ксюра

1 марта, 02:38

Даны два числа x и y (x y). меньшее из чисел заменить их полусуммой. составить программу

+1

Ответы (1)

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

Флориана · Answer 1

Program programma;

Uses crt;

Var x, y: real;

begin clrscr;

write ('Введите число x = ') ;

readln (x) ;

write ('Введите число y = ') ;

readln (y) ;

writeln;

if x y then

begin

if x
else writeln (x,' ', ((x+y) / 2) : 0:3) ;

end

else

writeln ('y не должен равняться x') ;

readln;

end.