Даны три числа a,b,c. Если среди них есть положительные, то найти сумму этих трёх чисел,...

Question

Даны три числа a,b,c. Если среди них есть положительные, то найти сумму этих трёх чисел, а иначе найти максимум из трёх.

Comments

Тебе отрезок программы нужен?

---

программа нужна вся

---

без проблем

---

теперь вся

Answer 1

Program df;
uses crt;
var a,b,c,max,sum:integer;
begin
sum:=0;
max:=0;
writeln('введите  числа а,b,c');
readln(a,b,c);
if (a>0)or(b>0)or(c>0) then sum:=a+b+c else if (a>b)and(a>c) then  max:=a else if (b>c)  then max:=b else max:=c; 
if sum=0 then wrteln('Числа отрицательные большее из них ',max) else writeln('сумма чисел ',sum); end.

Comments

Пиши если что не понятно