Інформаці́йний ви́бух<span> — значне збільшення обсягів </span>інформації<span>.</span>
Var s:string; i:integer;begin readln(s); for i:=1 to length(s)-1 do if s[i]+s[i+1]='му' then begin delete(s,i,2); insert('ло',s,i); end; writeln(s);end.
http://mojainformatika.ru/paskal/uroki-paskal-stroki/118-standartnye-proczedury-i-funkczii-primenyae...
Itranslateтакая программка Где вы можете переводить слова
// PascalABC.NET 3.1, сборка 1192 от 07.03.2016
begin
var a:=ArrRandom(10,-40,40); a.Println;
a.SortedDescending.Println
end.
<u><em>Тестовое решение:</em></u>
20 -32 1 3 0 21 -14 21 32 -6
32 21 21 20 3 1 0 -6 -14 -32
def f():
result = []
for i in range(100, 10000):
str_num = str(i)
num = sum([int(x) ** len(str_num) for x in str_num])
if num == i:
result.append(i)
return result