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

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

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

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

textual
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.

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


СОХРАНИТЬ ССЫЛКУ
Похожие ответы