Question

ПРОГРАММИРОВАНИЕ ПАСКАЛЬ Вводится kol1,kol2,kol3. Среди них надо найти максимум.

Answer 1

Var kol1, kol2, kol3: integer;
begin
read(kol1, kol2, kol3);
if (kol1 >= kol2) and (kol1 >= kol3) then writeln(kol1)
else if (kol2 >= kol1) and (kol2 >= kol3) then writeln(kol2)
else writeln(kol3)
end.

Answer 2

Поиск максимального значения вводимых чисел в Паскале

Для поиска максимального значения среди введенных чисел в Паскале можно использовать следующий код:

var
  kol1, kol2, kol3, max: integer;
begin
  // Ввод значений
  writeln('Введите значение для kol1: ');
  readln(kol1);
  writeln('Введите значение для kol2: ');
  readln(kol2);
  writeln('Введите значение для kol3: ');
  readln(kol3);

// Поиск максимального значения
  max := kol1;
  if kol2 > max then
    max := kol2;
  if kol3 > max then
    max := kol3;

// Вывод результата
  writeln('Максимальное значение: ', max);
end.

В этом примере мы используем переменные `kol1`, `kol2` и `kol3` для ввода трех чисел, а затем сравниваем их, чтобы найти максимальное значение. Результат выводится на экран.

Примечание: В реальном приложении следует учитывать возможные ошибки ввода пользователем и обрабатывать их соответствующим образом.