Первое задание Есть некоторый текст. Разработайте приложение, которое должно произвести поиск
слова. В результате работы приложения нужно отобразить количество раз, сколько
слово встречается в тексте.
При поиске необходимо учитывать следующие факторы:
■ поиск вне зависимости от регистра букв слова;
■ слово может быть отделено от других слов – пробелом, знаками препинания;
■ если слово есть в тексте, но в перевернутом виде, его надо учитывать в статистике поиска.
Второе задание
Добавить к первому заданию возможность поиска набора слов. Искомые слова нужно
хранить в списке.
(На языке )

program p;

var s,a,b,c: string; begins: =' фигуры'; writeln('введите названия трёх фигур'); read(a,b,c); writeln(s,': ',a,', ',b,' и ',c); end. 

64000*16=1024000 б=128000 б=125 кб

var i, j, min, min_i, min_j: integer; a: array[1..5, 1..5] of integer;

begin for i : = 1 to 5 do begin for j : = 1 to 5 do begin a[i, j] : = random(100) + 1; write(a[i, j]: 4); end; writeln; end; min : = 999; for i : = 1 to 5 do for j : = 1 to 5 do if min > a[i, j] then begin min : = a[i, j]; min_i : = i; min_j : = j; end; a[min_i, min_j] : = 0; writeln('массив с замененным минимальным элементом'); for i : = 1 to 5 do begin for j : = 1 to 5 do write(a[i, j]: 4); writeln; end; end.

ответ 4: значок @ в адресе электронной почты употребляется всего лишь один раз (насколько мне известно)