Question

Помогите пожалуйста очень надо срочно пожалуйста....Задачку в Паскале..Вычислите наименьшее из трёх заданных чисел. пожалуйста

Answer 1

program a1;

 uses crt;

var a,b,c,k:longint;

begin

 clrscr;

 write('Введите первое число: ');readln(a); 

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

 write('Введите третье число: ');readln(c);   

if a<b then k:=a else k:=b;

if b<k then k:=b;

writeln(k);

readln

end. 

 

Если Paskal ABC, то выделенное можно не писать 

Answer 2

Конечно, вот пример программы на языке Паскаль, которая находит наименьшее из трех заданных чисел:

pascalCopy code
program Наименьшее_из_трех;

var
  a, b, c, минимальное: real;

begin
  writeln('Введите первое число: ');
  readln(a);
  writeln('Введите второе число: ');
  readln(b);
  writeln('Введите третье число: ');
  readln(c);

  { Предположим, что минимальное значение находится в переменной "a" }
  минимальное := a;

  { Проверяем, если "b" меньше, чем текущее минимальное значение, обновляем "минимальное" }
  if b < минимальное then
    минимальное := b;

  { Проверяем, если "c" меньше, чем текущее минимальное значение, обновляем "минимальное" }
  if c < минимальное then
    минимальное := c;

  writeln('Наименьшее число: ', минимальное);

  readln;
end.

Эта программа сначала запрашивает у пользователя три числа, затем сравнивает их, чтобы найти наименьшее значение, и выводит его на экран.