Составьте не менее трех вариантов програмы определния наименьшего…

Question

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

Anree · Accepted Answer

1) program m; uses crt; var i,a,b,c,min: integer; beginclrscr; readln (a,b,c); if a<min then min: =a; if b<min then min: =b; if c<min then min: =c; writeln (',min); readkey; end. 2) program m; uses crt; var i,a,b,c,min,d: integer; beginclrscr; readln (a); min: =a; for i: =1 to 2 do beginreadln (a); if a<min then min: =a; end; writeln (min); readkey; end. 3) program m; uses crt; var i,a,b,c,min,d: integer; beginclrscr; readln (a,b,c); if a<b then b: =a; if c<a then b: =c; writeln (b); readkey; end.

Составьте не менее трех вариантов програмы определния наименьшего…

Задание:

Решение: