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

Question

Информатика

Капитолина

2 января, 07:51

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

+4

Ответы (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.