Славик решил сделать свой язык, в языке 4 буквы, в каждом слове этого языка не более 5 букв, сколько может существовать слов в этом языке? Буквы в одном слове могут повторяться и стоять рядом.

1360

Объяснение:

Если предположить, что минимальная длина слова в его языке - 2 символа, то нужно посчитать, сколько может быть слов из 2, 3, 4 и 5 символов и сложить результаты.

4*4=16

4*4*4=64

4*4*4*4=256

4*4*4*4*4=1024

1024+256+64+16=1360

Вариант номер два (специально для тех, кто считает, что в этом языке могут быть слова длиной в одну букву):

Итак

Если предположить, что минимальная длина слова в его языке - 1 символ, то нужно посчитать, сколько может быть слов из 1, 2, 3, 4 и 5 символов и сложить результаты.

4

4*4=16

4*4*4=64

4*4*4*4=256

4*4*4*4*4=1024

4+1024+256+64+16=1364

Все решения даны в системе  программирования
PascalABC.NET 3.2, сборка 1382 от 06.02.2017

Если программа не работает, обновите версию!

№1
begin
  var a:=ReadArrInteger('Вводите числа:',ReadInteger('n='));
  var im:=a.IndexMax;
  Writeln('Максимальный элемент номер ',im+1,' равен ',a[im])
end.

Пример
n= 6
Вводите числа: 13 8 -15 0 16 -24
Максимальный элемент номер 5 равен 16

№2
begin
  var a:=ReadArrInteger('Вводите числа:',ReadInteger('n='));
  Sort(a,(x,y)->x>y);
  a.Println
end.

Пример
n= 5
Вводите числа: 5 -4 6 0 5
6 5 5 0 -4

№3
begin
  var a:=ArrRandom(ReadInteger('n='),-54,33); a.Println;
  Sort(a,(x,y)->x>y); a.Println
end.

Пример
n= 14
-2 2 -10 17 18 -3 24 -30 -42 12 -11 -53 13 21
24 21 18 17 13 12 2 -2 -3 -10 -11 -30 -42 -53

№4
begin
  var a:=ReadArrInteger('Вводите числа:',ReadInteger('n='));
  var b:=a.Where(x->x>0); b.Println
end.

Пример
n= 14
Вводите числа: -2 2 -10 17 18 -3 24 -30 -42 12 -11 -53 13 21
2 17 18 24 12 13 21

Значок, также иконка  — элемент графического интерфейса, небольшая картинка, обозначающая приложение, файл, каталог, окно, компонент операционной системы, устройство и т. п. Щелчок мышью или другим указательным устройством ввода на иконке запускает соответствующее действие

Значки на панели инструментов текстового редактора gedit

Иконка программы/данных, содержащая только ссылку на эту программу/данные, в русской терминологии именуется «ярлыком».

Иконки были изобретены в 1970 году в исследовательском центре PARC компании «Ксерокс» в Пало-Альто, чтобы облегчить взаимодействие с компьютером для