Question

Составьте алгоритм для определения наименьшего из 3 положительных чисел.

Answer 1

var

  n1,n2,n3,min:word;

begin

  write ('N1= ');readln(n1);

  write ('N2 = ');readln(n2);

  write ('N3 = ');readln(n3);

  if (n1<n2) and (n1<n3) then min:=n1 else

    if (n2<n1) and (n2<n3) then min:=n2 else min:=n3;

  writeln ('Min: ',min);

  readln;

end.

Answer 2

uses crt;
var a,b,c,min:integer;
begin
writeln('Введи три числа: ');
readln(a,b,c);
min:=a;
if b<min then min:=b;
if c<min then min:=c;
writeln('Наименьшее из этих чисел:  ',min);
readln;
end.