Question

Напишите программу нахождения наименьшего значения среди трех величин: А,В,С.9 класс / Pascal ​

Answer 1

Ответ:

• var a, b, c, min: integer;
• begin
• read(a, b, c);
• if a < b then
• if a < c then min := a
• else min := c  
• else min := b;
• write('Мин: ', min);
• end.

или так:

• begin
• ReadArrInteger(3).Min.Print
• end.

Пример работы:

Answer 2

Конечно! Вот пример программы на Pascal, которая находит наименьшее значение среди трех величин A, B и C:

pascalCopy code
program FindMinimum;
var
  A, B, C, minimum: real; // Здесь можно использовать тип integer, если значения целочисленные

begin
  writeln('Введите значение A:');
  readln(A);
  
  writeln('Введите значение B:');
  readln(B);
  
  writeln('Введите значение C:');
  readln(C);
  
  // Предположим, что начальное значение minimum установлено на "бесконечность"
  minimum := A;
  
  // Сравниваем значение B с текущим минимумом
  if B < minimum then
    minimum := B;
  
  // Сравниваем значение C с текущим минимумом
  if C < minimum then
    minimum := C;
  
  writeln('Наименьшее значение: ', minimum);
end.

Программа сначала запрашивает три величины (A, B и C) у пользователя, затем сравнивает их между собой, чтобы найти наименьшее значение. Результат выводится на экран. Пожалуйста, помните, что это базовый пример, и его можно доработать и оптимизировать.