Помогите пожалуйста.Безотлагательно нужноВведите с клавиатуры три числа:A,B,C. ЕслиAamp;gt;Bamp;gt;Camp;gt;0,то

Помогите пожалуйста.Безотлагательно нужно
Введите с клавиатуры три числа:A,B,C. ЕслиAgt;Bgt;Cgt;0,то поменяйте все числа их квадратами и выведите результаты на экран.Если они отрицательны и не одинаковы меж собой, то каждое число замените наибольшим из их и выведите результаты.По другому,найдите и выведите их сумму.
ПАСКАЛЬ

Задать свой вопрос
1 ответ
Var a,b,c,m : integer;
Begin
  Readln(a,b,c);
  If (agt;b) and (bgt;c) and (cgt;0) then
  Begin
   a:=a*a; b:=b*b; c:=c*c;
  end else
     If (alt;0) and (blt;0) and (clt;0) and (alt;gt;b) and (alt;gt;c) and (blt;gt;c) then
    Begin
  m:=a;
  If bgt;m then m:=b;
  If cgt;m then m:=c;
  a:=m; b:=m; c:=m;
    end else
    Begin
      Writeln('Сумма: ',a+b+c);
      halt(0);
    end;
  Writeln('A = ',a,'    B =',b,'  C = ',c);
end.
Сергей Ильвовский
спасибо огромное
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт