Даны три числа 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.
Объяснение кода листинга программы
- В программе объявлены три переменные типа integer: a, b и c.
- Программа выводит сообщение «Введите 3 целых числа» и считывает три числа с помощью функции readln.
- Проверяется, есть ли среди введенных чисел отрицательные. Если да, то выполняется блок кода внутри условного оператора if.
- Внутри этого блока вычисляется произведение всех трех чисел a, b и c и сохраняется в переменной p.
- Если в блоке if не было выполнено ни одного условия, то выполняется блок else.
- Внутри блока else сначала сравниваются числа a и b. Если a меньше b, то переменной mn присваивается значение a. Если b меньше a, то переменной mn присваивается значение b.
- Затем сравнивается число mn с числом c. Если c меньше mn, то переменной mn присваивается значение c.
- После этого выводится сообщение «min=», и значение переменной mn выводится на экран.
- Программа завершается.