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