ответ:На Паскале
Код:
var
a,b,c, d:integer;
begin
writeln('введите числа');
readln(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)
else writeln(d)
end.
Вроде так, в некоторых версиях может выдавать ошибку, лучше составить код без ограничений действий
ответ:На Паскале
Код:
var
a,b,c, d:integer;
begin
writeln('введите числа');
readln(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)
else writeln(d)
end.
Вроде так, в некоторых версиях может выдавать ошибку, лучше составить код без ограничений действий