Даны три числа А,В,С. Если все числа положительны вычислить Z=А+В+С, если все отрицательны –Z=(А+В)С, в противном случае Z=АВ*С

Категория: Delphi/Pascal

2012-01-25 23:26:10

code: #pascal

program PascalGuru;
uses crt;
 
{--------------}
var A,B,C,Z:real;
 
begin
write('A= '); readln(A);
write('B= '); readln(B);
write('C= '); readln(C);
 
if (A>0) and (B>0) and (B>0) then Z:=A+B+C
                             else
if (A<0) and (B<0) and (B<0) then Z:=(A+B)*C
                             else Z:=A*B*C;
writeln;
writeln('Z= ',Z:0:2);
 
readln;
end.

Поделиться:

Похожие статьи:

теги: новички, положительное, отрицательное