Răspuns :
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;
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;
Vă mulțumim pentru vizita pe site-ul nostru dedicat Informatică. Ne dorim ca informațiile furnizate să vă fi fost utile. Dacă aveți întrebări sau aveți nevoie de suport suplimentar, nu ezitați să ne contactați. Revenirea dumneavoastră ne bucură, iar pentru acces rapid, adăugați-ne la favorite!