Question

Se dau trei valori intregi.De elaborat un program (in PASCAL)care gaseste si afiseaza valoarea minimala.

Answer 1

program minval;
var
  n1, n2, n3;
begin
  writeln('Scrieti valoarea lui n1: ');
  readln(n1);
  writeln('Scrieti valoarea lui n2: ');
  readln(n2);
  writeln('Scrieti valoarea lui n3: ');
  readln(n3);
  if (n1 < n2) and (n1 < n3)
  then
   writeln(n1);
  else if(n2 < n1) and (n2 < n3)
  then
   writeln(n2);
  else if(n3 < n1) and (n3 < n2)
  then
   writeln(n3);
readln;
end;