15602218s1
16.01.2022 17:24

Составьте таблицу истинности с решением


Составьте таблицу истинности с решением

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
bon1101
25.01.2023 12:39
#include <vector>
#include <algorithm> 
using namespace std;
 int main() {
    string s; 
   vector<char> vowels = {'a','e','i','o','u','y'};
    cin >> s; 
  int count_letters = 0; //сколько букв одной гласности подряд 
  int count = 0; // сколько букв добавить 
   int state = -1; //для гласности 
   int c = state; // для запоминания 
   for(int i = 0 ;i < s.length(); i++, c = state) {
        if(find(vowels.begin(),vowels.end(),s[i])!= vowels.end()) 
           state = 0;
        else state = 1; 
       if(c==state) count_letters++; 
       if(count_letters == 3) { 
           count_letters = 1; //так как одна буква остается справа от разделяющей
            count++; 
       } 
   } 
  cout << count;
}
0,0(0 оценок)
Ответ:
millykot2003
16.10.2021 16:59
{ ответ дан на языке Pascal }
{         Вариант a         }
PROGRAM Solution(INPUT, OUTPUT);

VAR
  Str: STRING;
  Str1: STRING;
  Str2: STRING;
  Str3: STRING;
  TempStr: STRING;

BEGIN
  WRITE('Введите строку: ');
  READLN(Str);
  Str1 := COPY(Str, 1, LENGTH(STR) DIV 3);
  Str2 := COPY(Str, LENGTH(STR) DIV 3 + 1, (LENGTH(STR) DIV 3));
  Str3 := COPY(Str, (LENGTH(STR) DIV 3) * 2 + 1, LENGTH(STR));

  WRITELN(Str2 + Str3 + Str1);

END.

{         Вариант b         }
PROGRAM Solution(INPUT, OUTPUT);

VAR
  Str: STRING;
  Str1: STRING;
  Str2: STRING;
  Str3: STRING;
  TempStr: STRING;

BEGIN
  WRITE('Введите строку: ');
  READLN(Str);
  Str1 := COPY(Str, 1, LENGTH(STR) DIV 3);
  Str2 := COPY(Str, LENGTH(STR) DIV 3 + 1, (LENGTH(STR) DIV 3));
  Str3 := COPY(Str, (LENGTH(STR) DIV 3) * 2 + 1, LENGTH(STR));

  WRITELN(Str3 + Str1 + Str2);

END.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота