Паскаль 1) задана строка, проверить есть ли в этой строке буква "а" 2) задана строка, проверить сколько раз встречаться в этой строке буква "м" 3) задана строка, удалить из этой строки все буквы "и"

1)
var
  s: string;

begin
  writeln('Введите строку: ');
  readln(s);
  if pos('а', s) <> 0 then writeln('В строке есть буква "а"')
  else writeln('В строке нет буквы "а"');
end.

2)
var
  s: string;
  i, a: byte;

begin
  a := 0;
  writeln('Введите строку: ');
  readln(s);
  for i := 1 to length(s) do if s[i] = 'м' then a := a + 1;
  writeln('В строке буква "м" встречается ', a, ' раз(а)');
end.

3)
var
  s: string;

begin
  writeln('Введите строку: ');
  readln(s);
  while pos('и', s) <> 0 do delete(s, pos('и', s), 1);
  writeln('Строка после удаления букв(ы) "и": ', s);
end.

#include <stdlib.h>

#include <time.h>

#include <iostream>

using namespace std;

#define N 16

void main()

{

   int randomNumbers[N];

   srand(time(NULL));

   for (int i = 0;i < N; i++)

   {

       randomNumbers[i] = rand() % 40 - 20;

       cout << "randomNumber[" << i << "] = " << randomNumbers[i] << endl;

   }

   cout << endl;

   int counter = 0;

   for (int i = 0; i < N; i++)

   {

       if (randomNumbers[i] < 0)

       {

           counter++;

       }

   }

   cout << "counter = " << counter << endl;

}

1 - True/False

2 - логическая операция, которая объединяет два высказывания в одно новое, которое будет являться истинным тогда и только тогда, когда оба исходных высказывания ложны.

3 - Конъюнкция

4 - X И Y И Z

5 - OR

6 - 1. Инверсия;

2. Конъюнкция;

3. Дизъюнкция;

4. Импликация;

5. Эквивалентность.

7 - логическая операция, которая преобразует исходное высказывание в новое, значение которого противоположно исходному.

8 - Импликация

9 - логическая операция, которая объединяет два высказывания в одно новое, которое будет являться истинным тогда и только тогда, когда оба исходных высказывания истинны

10 -  Конъюнкция

11 - ?

12 - ?

Объяснение: