PaScaL var a,b,c,min:integer; begin writeln('введите числа a,b,c'); readln(a,b,c); min:=a; if (b<a) and (b<c) then min:=b; if (c<a) and (c<b) then min:=c; writeln('min ', min);end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
