Даны два реальных числа. Составьте программку. наименьшее из этих чисел поменять

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

Задать свой вопрос
1 ответ
Var a,b,c:real;beginwriteln('Введите два действительных числа А и В:');readln(a,b);
if alt;b then beginc:=a;a:= b-a;b:= 0.5*(b+c);endelsebeginc:=b;b:= b-a;a:= 0.5*(a+c);end;Writeln('A = ',a,' B = ',b);end.
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт