Напишите программу в паскаль Дано три целых числа. Минимальное из них присвоить
дополнительной переменной и вывести результат, используя:
4.1. только простые вложенные условия (без and/or)
4.2. логические выражения (с and/or)

12 Ноя 2020 в 19:44
145 +1
0
Ответы
1

Пример программы с простыми вложенными условиями:

program MinNumber;
var
num1, num2, num3, minNum: integer;
begin
write('Введите первое число: ');
readln(num1);
write('Введите второе число: ');
readln(num2);
write('Введите третье число: ');
readln(num3);
if num1 < num2 then
minNum := num1
else
minNum := num2;
if num3 < minNum then
minNum := num3;
writeln('Минимальное число: ', minNum);
end.

Пример программы с логическими выражениями (and/or):

program MinNumber;
var
num1, num2, num3, minNum: integer;
begin
write('Введите первое число: ');
readln(num1);
write('Введите второе число: ');
readln(num2);
write('Введите третье число: ');
readln(num3);
minNum := num1;
if num2 < minNum then
minNum := num2;
if (num3 < num1) and (num3 < num2) then
minNum := num3;
writeln('Минимальное число: ', minNum);
end.
17 Апр 2024 в 22:08
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Прямой эфир