Question

Как в паскале задать программу, которая из трёх чисел выберет наименьшее. Плис помогите приведите пример(числа любые). Заранее благодарен

Answer 1

var a,b,c:integer;
begin
read(a,b,c);
if (a<b) and (a<c) then
writeln(a);
if (b<a) and (b<c)  then
writeln(b);
if (c<a) and (c<b)  then
writeln(c);
end.