М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации

Паскаль авс. дана строка символов. составьте программу которая подсчитывает, сколько в данной строке слов оканчивающихся на а. все слова разделяются 1 пробелом и только буквы.

👇
Ответ:
666SmEtAnKa666
666SmEtAnKa666
04.10.2020
Var
  s: string;
  i, n: integer;
  a: set of char;

begin
  Writeln('Введите строку текста');
  Readln(s);
  n := 0;
  a := ['А', 'а'];
  for i := 1 to Length(s) do
    if (s[i] = ' ') and (s[i - 1] in a) then n := n + 1;
  if (s[i - 1] in a) then n := n + 1;
  Writeln('Количество слов, оканчивающихся буквой "а", равно ', n)
end.

Тестовое решение:
Введите строку текста
А роза упала на лапу Азора
Количество слов, оканчивающихся буквой "а", равно 4
4,7(11 оценок)
Открыть все ответы
Ответ:
89232752183
89232752183
04.10.2020

Объяснение:

#include <iostream>

#include <vector>

using namespace std;

int main()

{

   setlocale(LC_ALL, "RU");

   int N;

   cin >> N;//массив на N элементов

   vector<int>a;

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

       a.push_back(rand()%100);// заполнение массива числами от 0 до 100

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

       cout << a[i] << " ";

   cout << endl;

   bool flag=false;

   int number;

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

       auto r = find(a.begin(), a.end(),a[i]);// функция стандартной библиотеки для поиска

       if (r != a.end()&&r-a.begin()!=i)

       {

           number = r - a.begin();// номер элемента массива с одинаковым значением

           flag = true;

           break;

       }

   }

   if (flag)

       cout <<"В массиве присутствуют элементы с одинаковыми значениями. Одним из равных значений является: "<<a[number];

   else

       cout << "В массиве не присутствуют элементы с одинаковыми значениями";

}

4,6(2 оценок)
Ответ:
Barvina779
Barvina779
04.10.2020
Var  ar: array[1..10000]of integer;
  ms: array[1..10000]of integer;
  i, c, n, j, p: integer;  b: boolean;
begin
  randomize;
  b := true;
  c := 1;
  write('Введите количество элементов массива:');
  read(n);
  writeln('Массив:');
  for i := 1 to n do ms[i] := -2147483648;
  for i := 1 to n do begin ar[i] := random(11); write(ar[i], ' '); end;
   for i := 1 to n do
    for j := i + 1 to n do
    begin
      if (ar[i] = ar[j]) then
       begin
        for p := 1 to c do
           if (ar[i] = ms[p]) then b := false;
           if (b = true) then begin ms[c] := ar[i]; c := c + 1; end;
        end;
      b := true;
    end;
  writeln;
  if (c = 1) then write('Нет')
   else  
begin
    write('Есть:');
    for i := 1 to c - 1 do  if(i <> c - 1) then write(ms[i], ',')  else write(ms[i]);
  end;
end.
4,4(81 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ