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

  1. Дали в шараге задачу, не могу сам решить, посоветовали в паскаль онлайн напечатать это, мол ответ даст, ошибки лезу, пожалуйста дайте значение или скажите что не так...))) Очень прошу.. //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.

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

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



Похожие ответы
  1. Вычислить значение функции f(x) =x/(25-х2). X изменяется от А до В с шагом h. Вычисление F(x) оформить как функцию, результаты вывести в виде таблицы в основной программе

  1. Даны действительные числа x,y. Вычислить значение функции z=arcsin(x+y)

  1. Вычислите F(X) в зависимости от введенного X. При составлении алгоритма использовать полную форму ветвления и вложенные структуры ветвления.

  1. Найти наибольшее (наименьшее) значение A(I)-B(I) для массивов A(N) и B(N).

  1. Помогите с задачей. Нужно доработать этот код. Получается нужно чтобы f, g были текстовыми документами, которые можно отдельно открыть в папке куда они сохраняются. А в данном случае при попытке открыть файл через блокнот отображается непонятные символы.Заранее спасибо. Дан файл f, компоненты которого являются целыми числами. Записать в файл g наибольшее значение первых пяти компонент файла f, затем - следующих пяти компонент и т.д. Если в последней группе окажется менее пяти компонент, то последняя компонента файла g должна быть равна наибольшей из компонент файла f, образующих последнюю (неполную) группу.

  1. Разработать программу по алгоритму с использованием рекурсивной функции и без использования рекурсивной функции.

  1. Всем привет! прошу помочь с программой, если не сложно, написать код программы. Буду очень благодарна ! Паскаль повторение программы, Задача связанная с суммой

  1. Помогите разобраться с заданием, никак не получается Для введенных с клавиатуры значений A, B, n, m и X вычислить S:

  1. Приветствую, не могу решить очень простое задание: Дано натуральное число n. Создать программу вычисления значение выражения: Сделал вот такой код, но он решает совсем другое выражение...