Отримати на комп'ютері зі слова "інформатика" нові слова. Наприклад "форма","мама","формат","рама".Вхідні дані:const d='інформатика' Надо составить программу
Блок схема:
початок
ввести d
a:copy(d,3,5)
a
b:copy(d,6,2)+copy (d,6,2)
b
c:copy(d,6,2)
c
k:copy (d,5,1)+copy(d,7,1)+(d,6,2)
k

// PascalABC.NET 3.2, сборка 1485 от 15.06.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandomReal(15,-10,10); a.Println;
  Writeln('Элементов, больших первого, ',
      a.Where(x->x>a[0]).Count)
end.

Пример
1.32138581542363 -7.42206571503639 -8.75516477914302 6.17963798166236 -4.88329186797295 6.02313704603498 -5.68947898023272 -4.43705633023617 2.51164194779081 -3.27493339463833 8.22698325767507 -7.95714398750902 4.07602354608291 -2.3214872238792 4.90172023647545
Элементов, больших первого, 6

создать программу или составить алгоритм? с готовой программой нечего не научишся, прийми програмирование как искуство и твори чудеса...

вобщем алгоритм такой:

0)вводиш строку

1)создаеш масив содержащий координаты букв "я" какие нарушают правило и возьмем длинну масива например такую как длинна строки пополам.

2)в цикле от 1 (0 в с++) до длинны строки выполняеш следующее:

  2.1)если i-й елемент строки равен "ч" а i+1 равен "я" то колво ошибок = колво +1;                            записываем в масив i+1

  2.2)если i-й елемент строки равен "щ" а i+1 равен "я" то колво ошибок = колво +1;  записываем в масив i+1

3) в цикле от 1(0 в с++) до колво ошибок все елементы строки координаты которых лежат в масиве, меняем на букву "я".

4) выводим на екран результат.