Вывести на экран сумму или произведение чисел в зависимости от условия

Написать программу, запрашивающую 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

Поделиться:

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