Даны три числа a, b,c. определить минимальное из них. если минимальное число окажется отрицателтным, то все отрицателые числа следует отбнулить. в прот

23 ноября 2013 / Разное

даны три числа a,b,c. определить минимальное из них. если минимальное число окажется отрицателтным, то все отрицателые числа следует отбнулить. в противном случае все положитльные числа следует инвертировать

  • Program tcd;
    var a,b,c,min:integer;
    begin
    readln(a,b,c);
    if (a<b) and (a<c) then min:=a;
    if (b<a) and (b<c) then min:=b;
    if (c<a) and (c<b) then min:=c;

    if min<0 then begin
    if c<0 then c:=0;
    if a<0 then a:=0;
    if b<0 then b:=0;
    end
    else
    if min>=0 then begin
    if c>=0 then c:=-c;
    if a>=0 then a:=-a;
    if b>=0 then b:=-b;
    end;
    writeln(‘a=’,a);
    writeln(‘b=’,b);
    writeln(‘c=’,c);
    end.


Добавить комментарий