Необходимо составить блок схему нахождения позиции буквы в слове. хотя бы объясните, что значит "нахождение позиции буквы в слове"?

1.  получение слова > > > 2.  получение количества букв в слове > > > 3.  проверка каждой последующей буквы(начиная с 1-й включительно) > > [если подходящая буква]> 4.1  вывод позиции > > [если нет]> 4.2 возврат к пункту 3. пример: вход: азбука требуемая буква, для нахождения ее положения: "у" букв в слове: 6 проверка: а(не подходит) з(не подходит) б(не подходит) у(подходит! позиция: 4) к(не подходит) а(не подходит) вывод: 4 наваял готовую блок-схему:  

 

2)

program masty 

uses crt; var n: integer; begin clrscr; write('введи номер масти 1-4 : '); readln(n); case n of 1: writeln ('пики'); 2: writeln ('трефы'); 3: writeln ('бубны'); 4: writeln ('червы'); else writeln('неправильный номер масти'); end; readkey; end. 

 

 

  1)

program cifry;

 

  uses crt; var n: integer;

        s: string[2]; begin clrscr;   write('введи двузначное целое число : ');   readln(n);

  str(abs(n),s);

if (s[1]=s[2]) then writeln('цифры числа одинаковые')

  else  writeln('цифры числа не одинаковые');  

 

 

  readkey;  

 

end. 

uses crt; const mn1: array[1..5] of byte =(5,6,1,2,3); {объявляем наши наборы}const mn2: array[1..5] of byte =(5,8,6,0,3); {объявляем наши наборы} var i,c,n: integer; begin clrscr;   write('набор1 до обработки: ');     for i: =1 to 5 do write(mn1[i]: 3);   {выводим   на экран набор 1}  writeln; writeln;   write(' набор2 до обработки:   : ');     for i: =1 to 5 do write(mn2[i]: 3);   {выводим   на экран набор 2} writeln;   writeln;   n: =1; c: =0;   while (n< =5) do         {в цикле сравниваем n-й элемент набора1 с}  begin                           {каждым   элемент набора2  }  for i: =1 to 5 do begin  if (mn1[n]=mn2[i]) then   begin  c: =c+1;     {если нашли совпадение до увеличиваем кол-во пар чисел}  mn1[n]: =0;           {и записываем на их место нули} mn2[i]: =0;

break;   {переходим к след элементу набора1} end;   end;

inc(n); end;

  {выводим результаты обработки}

write('количество пар чисел: ',c);

writeln; write(' набор1 после обработки : '); for i: =1 to 5 do write(mn1[i]: 3); writeln; writeln;   write(' набор2 после обработки : '); for i: =1 to 5 do write(mn2[i]: 3);   readkey; {пауза до нажатия на любую клавишу} end.