Question

Напишите программу нахождения большей из 3 величин с использованием вложеного ветвления. На паскале

Answer 1

Ответ:

var

 a,b,c: integer;

begin

 write('Введите число a = ');

 readln(a);

 write('Введите число b = ');

 readln(b);

 write('Введите число c = ');

 readln(c);

 if (a>b)and(a>c) then

   writeln('а = ', a)

 else

   if b>c then

     writeln('b = ', b)

   else

     writeln('c = ', c);

end.

Answer 2

Конечно! Вот пример программы на языке Pascal, который находит наибольшую из трех величин с использованием вложенного ветвления:

pascalCopy code
program MaxOfThree;
var
  num1, num2, num3, max: integer;
begin
  // Ввод трех чисел
  writeln('Введите три числа:');
  readln(num1);
  readln(num2);
  readln(num3);

  // Нахождение наибольшего числа
  if (num1 >= num2) and (num1 >= num3) then
    max := num1
  else if (num2 >= num1) and (num2 >= num3) then
    max := num2
  else
    max := num3;

  // Вывод наибольшего числа
  writeln('Наибольшее число: ', max);
end.

В этой программе пользователю предлагается ввести три числа. Затем с помощью вложенного ветвления определяется наибольшее число из трех и выводится на экран.