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

Формулировка задачи:

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


textual

Код к задаче: «Даны три числа a,b,c. Если из них есть отрицательные, то найти произведение этих 3 чисел, а иначе найти min из - Pascal ABC»

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.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

7   голосов, оценка 3.857 из 5

Источник
Похожие ответы