Вывести на экран сумму или произведение чисел в зависимости от условия
Категория: Delphi/Pascal
2016-04-14 15:10:23
Написать программу, запрашивающую 3 целых числа и выводящая сумму этих чисел на экран, если максимум этих чисел больше 12. Вывод на экран произведения этих чисел, если минимум этих чисел меньше или равен 12.
code: #pascal
function max(a,b,c:integer; var min,max:integer): integer; var d,e:integer; begin d:=a; e:=a; if b>d then d:=b; if c>d then d:=c; if b<e then e:=b ; if c<e then e:=c; max:=d; min:=e; end; var a,b,c,d,e,rez:integer; begin write('1-chislo='); readln(a); write('2-chislo='); readln(b); write('3-chislo='); readln(c); max(a,b,c,d,e); if e>12 then rez:=a+b+c; if d<=12 then rez:=a*b*c; writeln('max=',e); writeln('min=',d); writeln(rez); end.
автор: rusik1994
Поделиться: