begin for i1 := 0 to 9 do for i2 := 0 to 9 do for i3 := 0 to 9 do for i4 := 0 to 9 do for i5 := 0 to 9 do for i6 := 0 to 9 do if i1 + i2 + i3 = i4 + i5 + i6 then begin Writeln(i1, i2, i3, i4, i5, i6); k := k + 1; end; writeln(k); end.
var money: array[1..7]of integer; count: array[1..7]of integer; s, i: integer;
// Внимание! Если программа не работает, обновите версию!
begin
ReadlnString('Введите слова через пробел:').ToWords
.Select(x->(x,x.Length)).OrderBy(x->x[1]).ThenBy(x->x[0])
.Select(x->x[0]).Println
end.
Пример
Введите слова через пробел: Карл у Клары украл кораллы Клара у Карла украла кларнет
у у Карл Карла Клара Клары украл украла кларнет кораллы