Даны три числа(A,B и C),определите значения наименьшего из них.
Answers & Comments
Студэнt
//прога на Pascal`e var a, b, c: real; begin readln (a, b, c); if a<b then if a<c then write (a) else write (c) else if b<c then write (b) else write (c); write (' - меньшее');
Answers & Comments
var
a, b, c: real;
begin
readln (a, b, c);
if a<b then if a<c then write (a) else write (c)
else if b<c then write (b) else write (c);
write (' - меньшее');
end.