СРОЧНО!!! Написать ** Паскале: Даны числа a, b. Если b=0, то найти min(a,b), если b<0, то...

Question

СРОЧНО!!! Написать на Паскале: Даны числа a, b. Если b=0, то найти min(a,b), если b<0, то найти max(a,b), в противном случае каждое число уменьшить на 20%.

Answer 1

Var a,b:real;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
if b=0
 then begin
      write('min(',a,',',b,')=');
      if a      end
 else if b<0<br>        then begin
             write('max(',a,',',b,')=');
             if a>b then writeln(a) else writeln(b);
             end
        else begin
             a:=a*0.8;
             b:=b*0.8;
             writeln('a = ',a,' b = ',b);
             end;
end.

Пример:
a = 5
b = -8
max(5,-8)=5

Comments

спасибо огромное)

---

пожалуйста.