Программа в паскале, помогите пожалуйста.Даны два реальных числа. Составьте программу,

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

Задать свой вопрос
1 ответ
Program gg;
var x,y,c:real;
begin
 read(x,y);
if xgt;y then
     begin
      c:=y;
      y:=(x+y)/2;
      x:=x*c;
     end
else
   begin
      c:=x;
      x:=(x+y)/2;
      y:=y*c;
     end;
write('x=',x,'y=',y)
end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт