Question

Creaza un program la informatica la pascal .
Se considera 4 numere intregi .sa se scie un program care determina numarul mai mic .
Va rog mult .

Answer 1

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