<em>// PascalABC.NET 3.2, сборка 1353 от 27.11.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(100,0,50); a.Println;
Writeln('S=',a.Sum)
end.
<u>Пример</u>
10 44 42 31 39 9 1 24 19 43 7 43 22 28 24 43 39 48 42 31 29 6 18 12 27 50 22 46 18 4 28 27 14 22 33 49 0 13 11 31 10 4 21 24 30 33 25 26 2 3 15 40 8 23 50 3 26 29 4 40 37 6 6 15 15 30 28 50 46 25 43 26 36 10 20 25 36 44 33 45 24 47 43 15 40 38 19 41 23 29 23 21 8 22 44 4 48 6 9 50
S=2595
Надоело при копировании из блокнота вручную ставить пробелы. Бред.
Иванов , Петров, Сидоров
Сидоров, Петров, Иванов
Петров, Иванов,Сидоров
Петров, Сидоров, Иванов
Сидоров,Иванов, Петров.
Иванов, Сидоров, Петров.
Сидоров,Петров,Иванов
Var s:string; c:char; i,k:integer;
begin
writeln('Введите предложение');
readln(s);
write('Введите букву: ');
readln(c);
k:=0;
for i:=1 to length(s) do if s[i]=c then k:=k+1;
writeln('k=',k);
<span>end.
Пример:
Введите предложение
С клавиатуры вводится предложение и буква.
Введите букву: в
<span>k=4</span></span>
Две обязательные буквы "А" в такой последовательности можно расположить 15 способами. На оставшиеся 4 места можно ставить любые буквы, т.е. 4^4=256 вариантов. Всего 15*256=3840.