Даны три числа a,b,c. Если из них есть отрицательные, то найти произведение этих 3 чисел, а иначе найти min из

@andrusha · Регистрация: 15.11.2015

Author24 — интернет-сервис помощи студентам

Даны три числа a,b,c. Если из них есть отрицательные, то найти произведение этих 3 чисел, а иначе найти min из трёх. И начертить блок схему. (Помогите пожалуйстаа)

@Puporev · 16.11.2015, 07:33

Pascal

program chisla;
var a,b,c,p,mn:integer;
begin
writeln('Введите 3 целых числа');
readln(a,b,c);
if(a<0)or(b<0)or(c<0) then
 begin
  p:=a*b*c;
  write('Произведение=',p);
 end
else
 begin
  if a<b then mn:=a else mn:=b;
  if c<mn then mn:=c;
  write('min=',mn);
 end;
end.

@andrusha · 17.11.2015, 17:16 **[ТС]**

СПАСИБО БОЛЬШОЕ)

@andrusha 0 / 0 / 0 Регистрация: 15.11.2015 Сообщений: 4
		1
	Даны три числа a,b,c. Если из них есть отрицательные, то найти произведение этих 3 чисел, а иначе найти min из 16.11.2015, 07:26. Показов 27624. Ответов 2 Метки нет (Все метки) Даны три числа a,b,c. Если из них есть отрицательные, то найти произведение этих 3 чисел, а иначе найти min из трёх. И начертить блок схему. (Помогите пожалуйстаа) 0

@andrusha 0 / 0 / 0 Регистрация: 15.11.2015 Сообщений: 4
	17.11.2015, 17:16 [ТС]	3
	СПАСИБО БОЛЬШОЕ) 0

Даны три числа a,b,c. Если из них есть отрицательные, то найти произведение этих 3 чисел, а иначе найти min из

Решение