Var x:integer;
begin
for x:=5 to 14 do begin
x:=x*(x+1)
end;
end.
PASCAL не уверен что работает но смысл такой
Под буквой Б, я это вчера сделал
//PascalABC.Net 3.2
begin
var a:=ReadArrInteger ('Вводите массив: ', readinteger('Кол-во элементов: '));
for var i:=0 to length(a)-1 do if a[i].isodd then a[i]:=sqr(i+1);
a.Println;
a.Println;
end.
На первой позиции может быть любая из четырёх букв.
На второй позиции может быть любая из трёх оставшихся букв.
На третьей позиции может быть любая из двух оставшихся букв.
Ответ: 4 * 3 * 2 = 24 слова.
На с++
for (i=1,i<= n+1, i++)
cin >> a[i];
for (i=1, i<=n, i++)
if a[i]<6
k=k+1;
cout<< "k";<span>
</span>