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

@Tatar4enok · Регистрация: 10.04.2016

помогите пожалуйста.
Написать программу, запрашивающая 3 целых числа и выводящая сумму этих чисел на экран, если максимум этих чисел больше 12. Вывод на экран произведения этих чисел, если минимум этих чисел меньше или равен 12.

@rusik1994 · 11.04.2016, 21:39

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.

Добавлено через 1 минуту
вроде так, но условие задачи какое то глуповатое помоему

@Tatar4enok 0 / 0 / 0 Регистрация: 10.04.2016 Сообщений: 2
		1
	Вывести на экран сумму или произведение чисел в зависимости от условия 10.04.2016, 23:10. Показов 3365. Ответов 1 Метки нет (Все метки) помогите пожалуйста. Написать программу, запрашивающая 3 целых числа и выводящая сумму этих чисел на экран, если максимум этих чисел больше 12. Вывод на экран произведения этих чисел, если минимум этих чисел меньше или равен 12. 0

Опции темы

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

Решение