Var a, b, c, rez: real; begin write('Введите число А: '); readln(a); write('Введите число B: '); readln(b); write('Введите число C: '); readln(c); if (a >= 0) and (b >= 0) and (c >= 0) then rez := a + b + c; if (a >= 0) and (b >= 0) then rez := a + b; if (a >= 0) and (c >= 0) then rez := a + c; if (b >= 0) and (c >= 0) then rez := b + c; if (a <= 0) and (b <= 0) then rez := c; if (b <= 0) and (c <= 0) then rez := a; if (a <= 0) and (c <= 0) then rez := b; if (a <= 0) and (b <= 0) and (c <= 0) then rez := 0; writeln(rez); end.
uses GraphABC;
var i,y:integer;
begin
SetWindowSize(300,700);
y:=150;
for i:=1 to 3 do
begin
Circle(150,y,100);
y:=y+200
end
end.
Объяснение:
картинка