Задание 10 . Сколько слов длины 4, начинающихся с согласной буквы, можно составить из букв Л, Е, Т, О? Каждая буква может входить в слово несколько раз. Слова не обязательно должны быть осмысленными словами русского языка.
More Questions From This User See All
Answers & Comments
Всего: 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.