Закодируй слова используя азбуку морзэ:мама ребенок родина

#include <iostream>
#include <math.h>
using namespace std;
int main ()
{
setlocale (0,"russian");
float a,b,h,F,x;
cout << "Промежуток:\nот ";
cin >> a;
cout << "до ";
cin >> b;
cout << "Шаг: ";
cin >> h;
x=a;
do
{
F=2*tan(x/2)+1;
cout << "x=" << x << '\t' << "F(x)=" << F << endl;   // \t - символ табуляции
x+=h;
if (x==0)     //на ноль делить нельзя, поэтому, если x=0, то мы  
    x+=h;    // перескакиваем к следующему аргументу
} while (x<=b);
system ("PAUSE");
return 0;
}

const N = 30;

var a : array[1..N] of integer;

   i, j, x : integer;

   

Begin

 for i := 1 to N do readln(a[i]);

 readln(x);

 for i := 1 to N do begin  //перебираем элементы массива

   if a[i] = x then begin  //если находим элемент равный Х то

     writeln('наименьший номер элемента равного X - ', i); //выводим сообщение

     exit;  //и завершаем программу не завершив перебор, т.к. нам нужен только наименьший номер

   end;

 end;

 writeln('такого элемента нет'); //если перебрав весь массив не находим совпадений то выводим сообщение

end.

Объяснение:

объяснения в комментариях программы

проверено на PascalABC