Найти значение получившееся переменной n в результате выполнения - Pascal

Формулировка задачи:

Дали в шараге задачу, не могу сам решить, посоветовали в паскаль онлайн напечатать это, мол ответ даст, ошибки лезу, пожалуйста дайте значение или скажите что не так...))) Очень прошу.. //fpc 3.0.0 a := "decomposition"; n := 0; Делать от i = 1 до LEN(a) { b := Часть(a, i, 1); k := 0; Делать от j := i + 1 до LEN(a) { Если Часть(a, j, 1) = b то { k :=1; } } n := n + k; }


textual

Код к задаче: «Найти значение получившееся переменной n в результате выполнения - Pascal»

var a:string;
     b:char; 
    n,i,j,k:byte;
begin
a:='decomposition';
n:=0;
for i:=1 to length(a) do
 begin
  b:=a[i];
  k:=0;
  for j:=i+1 to length(a) do
  if a[j]=b then k:=k+1;
  n:=n+k;
 end;
write('n=',n);
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

5   голосов, оценка 4.000 из 5

Источник