Răspuns :
Program P2;
var x,y,z,w : integer;
begin
write('x='); readln(x);
write('y='); readln(y);
write('z='); readln(z);
write('w='); readln(w);
if (x<y) then if (x<z) then if (x<w) then writeln ('Cel mai mic numar=',x);
if(y<x) then if(y<z) then if (y<w) then writeln ('Cel mai mic numar=',y);
if (z<x) then if(z<y) then if (z<w) then writeln ('Cel mai mic numar=',z);
if (w<x) then if (w<y) then if (w<z) then writeln ('Cel mai mic numar=',w);
readln;
end.
Posibil ca mai sunt variante de rezolvare cu alte instructiuni. Varianta mea este acesta
Vă mulțumim pentru vizita pe site-ul nostru dedicat Informatică. Sperăm că informațiile oferite v-au fost de ajutor. Nu ezitați să ne contactați pentru orice întrebare sau dacă aveți nevoie de asistență suplimentară. Vă așteptăm cu drag data viitoare și nu uitați să ne adăugați la favorite!