Var se:set of char; s:string; i,j,k:integer; begin k:=0; se:=['Б','В','Г','Д','Ж','З','Й','К','Л','М','Н','П','Р','С','Т','Ф','Х','Ч','Ц','Ш','Щ','б','в','г','д','ж','з','й','к','л','м','н','п','р','с','т','ф','х','ц','ч','ш','щ']; readln(s); var ars:=s.split; for i:=0 to ars.Length-1 do for j:=1 to length(ars[i])-1 do if (ars[i][j] in se) and (lowcase(ars[i][j])=lowcase(ars[i][j+1])) then begin inc(k); break; end; writeln('Res=',k); end.
Пример ввода: Ввод йотированных звуков Пример вывода: Res=2
Можно воспользоваться преимуществами, которые дает Pascal 3.1 и программа будет достаточно короткой.
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016 begin var m:=ReadInteger('m='); var c:=MatrixRandom(m,m,10,99); var d:=new Dictionary<integer,integer>; for var i:=0 to m-1 do begin for var j:=0 to m-1 do Print(c[i,j]); Println; end; foreach var e in c do d[e]:=d.Get(e)+1; var q:=d.OrderByDescending(x->x.Value); var p:=q.First.Value; if p=1 then Writeln('Все значения в массиве уникальны') else begin var s:=q.TakeWhile(x->x.Value=p).Select(x->x.Key); Write('Наиболее часто (',p,') '); if s.Count=1 then begin Print('встречается значение'); s.Print end else begin Print('встречаются значения:'); s.Println end end end.
Тестовые решения
m= 3 76 34 96 47 99 79 94 33 11 Все значения в массиве уникальны
m= 5 43 19 46 70 51 73 46 50 18 25 19 10 32 83 81 32 46 81 23 84 27 91 84 79 28 Наиболее часто (3) встречается значение 46
Var
se:set of char;
s:string;
i,j,k:integer;
begin
k:=0;
se:=['Б','В','Г','Д','Ж','З','Й','К','Л','М','Н','П','Р','С','Т','Ф','Х','Ч','Ц','Ш','Щ','б','в','г','д','ж','з','й','к','л','м','н','п','р','с','т','ф','х','ц','ч','ш','щ'];
readln(s);
var ars:=s.split;
for i:=0 to ars.Length-1 do
for j:=1 to length(ars[i])-1 do
if (ars[i][j] in se) and (lowcase(ars[i][j])=lowcase(ars[i][j+1])) then
begin
inc(k);
break;
end;
writeln('Res=',k);
end.
Пример ввода:
Ввод йотированных звуков
Пример вывода:
Res=2
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
var m:=ReadInteger('m=');
var c:=MatrixRandom(m,m,10,99);
var d:=new Dictionary<integer,integer>;
for var i:=0 to m-1 do begin
for var j:=0 to m-1 do Print(c[i,j]);
Println;
end;
foreach var e in c do d[e]:=d.Get(e)+1;
var q:=d.OrderByDescending(x->x.Value);
var p:=q.First.Value;
if p=1 then Writeln('Все значения в массиве уникальны')
else begin
var s:=q.TakeWhile(x->x.Value=p).Select(x->x.Key);
Write('Наиболее часто (',p,') ');
if s.Count=1 then begin
Print('встречается значение');
s.Print
end
else begin
Print('встречаются значения:');
s.Println
end
end
end.
Тестовые решения
m= 3
76 34 96
47 99 79
94 33 11
Все значения в массиве уникальны
m= 5
43 19 46 70 51
73 46 50 18 25
19 10 32 83 81
32 46 81 23 84
27 91 84 79 28
Наиболее часто (3) встречается значение 46
m= 10
89 11 84 46 18 68 56 13 28 34
86 25 84 34 51 13 37 41 26 23
33 74 87 21 11 42 61 42 32 65
34 37 47 23 24 20 61 14 93 31
71 27 19 31 81 94 38 87 74 83
19 74 81 28 70 24 23 72 44 76
17 24 80 62 10 58 78 71 19 40
52 33 48 94 51 16 64 65 40 16
13 74 68 48 56 60 56 28 53 99
97 88 69 27 23 57 46 57 31 33
Наиболее часто (4) встречаются значения: 23 74