Ллел ,ллее ,ллет ,ллео ,ллтл ,ллте ,ллтт ,ллто ,ллол ,ллое ,ллот ,ллоо ,лелл ,леле ,лелт ,лело ,леел , ,леет ,леео ,летл ,лете ,летт ,лето ,леол ,леое ,леот ,леоо ,лтлл ,лтле ,лтлт ,лтло ,лтел ,лтее ,лтет ,лтео ,лттл ,лтте , ,лтто ,лтол ,лтое ,лтот ,лтоо ,лолл ,лоле ,лолт ,лоло ,лоел ,лоее ,лоет ,лоео ,лотл ,лоте ,лотт ,лото ,лоол ,лоое ,лоот , , ,тлле ,тллт ,тлло ,тлел ,тлее ,тлет ,тлео ,тлтл ,тлте ,тлтт ,тлто ,тлол ,тлое ,тлот ,тлоо ,телл ,теле ,телт ,тело ,теел , ,теет ,теео ,тетл ,тете ,тетт ,тето ,теол ,теое ,теот ,теоо ,ттлл ,ттле ,ттлт ,ттло ,ттел ,ттее ,ттет ,ттео , , , , ,ттол ,ттое ,ттот ,ттоо ,толл ,толе ,толт ,толо ,тоел ,тоее ,тоет ,тоео ,тотл ,тоте ,тотт ,тото ,тоол ,тоое ,тоот , всего: 128 var a : array [1..4] of char; i, k, l, m, n : byte; begin a[1] : = 'л'; a[2] : = 'е'; a[3] : = 'т'; a[4] : = 'о'; for i : = 1 to 3 do begin for k : = 1 to 4 do begin for l : = 1 to 4 do begin for m : = 1 to 4 do begin if i < > 2 then begin write(a[i], a[k], a[l], a[m], ' ,'); n += 1; end; end; end; end; end; writeln('всего: ', n) end.
Спасибо
Популярные вопросы