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

264

479

Посмотреть ответы 2

Ответы на вопрос:

artamasvan

Информатика

4,4(74 оценок)

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.