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

Узнай цену своей работы

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

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

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

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.

Объяснение кода листинга программы

  1. В программе объявлены три переменные типа integer: a, b и c.
  2. Программа выводит сообщение «Введите 3 целых числа» и считывает три числа с помощью функции readln.
  3. Проверяется, есть ли среди введенных чисел отрицательные. Если да, то выполняется блок кода внутри условного оператора if.
  4. Внутри этого блока вычисляется произведение всех трех чисел a, b и c и сохраняется в переменной p.
  5. Если в блоке if не было выполнено ни одного условия, то выполняется блок else.
  6. Внутри блока else сначала сравниваются числа a и b. Если a меньше b, то переменной mn присваивается значение a. Если b меньше a, то переменной mn присваивается значение b.
  7. Затем сравнивается число mn с числом c. Если c меньше mn, то переменной mn присваивается значение c.
  8. После этого выводится сообщение «min=», и значение переменной mn выводится на экран.
  9. Программа завершается.

Оцени полезность:

7   голосов , оценка 3.857 из 5
Похожие ответы