Дано шестизначное целое число n, в десятичной записи которого нет нулей. необходимо определить минимальное трехзначное число, которое можно увидеть в десятичной записи числа n. например, для n=915391 - результат 153
Var i,n,m,j,t:integer;d:array[1..6] of integer;beginn:= 951259;repeat m:= m + 1;d[m]:= n mod 10;n:= n div 10;until n = 0;writeln(d);for i:=1 to m do for j:=2 to m do beginif d[j-1]> d[j] then begint:= d[j-1]; d[j-1]:= d[j]; d[j]:= t;end;end;for i:=1 to 3 do write(d[i]);end.
И лишь пару лет тому назад интернет не был так значим людьми, как в наши дни. Дети не ходят гулять, а сидят в интернете, играя в различные игры или общаясь с людьми в соц сетях. Живое общение заменяет "смс". Не понимаешь чего-либо в уроке или жизни - загулил, хотя можно подойти к учительнице, попросить и она попытается понятно донести ту или иную информацию; или же подойти к родителям и попросить совета. Сейчас интернет имеет большую роль в нашем образе жизни, в жизни молодежи, но это не значит, что стоит забывать о реальном мире. Блин, как-то так
