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

Плес ) для какого из данных слов истинно высказывание: не (оканчивается на мягкий знак) и (количество букв чётное)? 1) сентябрь 2) август 3) декабрь 4) май 2. для какого из имён ложно высказывание: не (первая буква согласная) или не (последняя буква гласная)? 1) пимен 2) кристина 3) ирина 4) александр 3.для какого из данных слов истинно высказывание: (оканчивается на мягкий знак) и не (количество букв чётное)? 1) сентябрь 2) август 3) декабрь 4) май 4.для какого из имён истинно высказывание: не((первая буква согласная) или (последняя буква 1) иван 2) семён 3) никита 4) михаил 5.для какого из имён ложно высказывание: (третья буква гласная) или не (последняя буква гласная)? 1) елена 2) татьяна 3) максим 4) станислав 6.для какого из чисел истинно высказывание: (число < 100) и не (число чётное)? 1) 156 2) 105 3) 23 4) 10 7.для какого из значений числа x истинно высказывание: (x < 5) и не (x < 4)? 1) 5 2) 2 3) 3 4) 4 8.для какого из имён истинно высказывание: не (первая буква согласная) и не (последняя буква гласная)? 1) юлиан 2) константин 3) екатерина 4) светлана 9.для какого из значений числа x ложно высказывание: не (x < 7) или (x < 6)? 1) 4 2) 5 3) 6 4) 7 10.для какого из данных слов истинно высказывание: не (есть шипящие) и (оканчивается на гласную)? шипящие звуки — это [ж], [ш], [ч'], [щ']. 1) любовь 2) отвращение 3) забота 4) отчуждённость

👇
Ответ:
yakun3008
yakun3008
09.11.2022
1. Для ка­ко­го из дан­ных слов ис­тин­но вы­ска­зы­ва­ние: 
НЕ (окан­чи­ва­ет­ся на мяг­кий знак) И (ко­ли­че­ство букв чётное)?

2) ав­густ - оканчивается не на мягкий знак и состоит из 6 - четного числа - букв

2. Для ка­ко­го из при­ведённых имён ложно вы­ска­зы­ва­ние:
НЕ (Пер­вая буква со­глас­ная) ИЛИ НЕ (По­след­няя буква глас­ная)?

2) Кри­сти­на - дизъюнкция (или) неверна, если неверны все операнды. Здесь неверно, что первая буква не согласная, и неверно, что последняя буква не гласная.

3. Для ка­ко­го из дан­ных слов ис­тин­но вы­ска­зы­ва­ние:
(окан­чи­ва­ет­ся на мяг­кий знак) И НЕ (ко­ли­че­ство букв чётное)?

3) де­кабрь - конъюнкция (и) верна, если все операндцы истинны. Здесь верно, что слово оканчивается на мягкий знак и верно, что количество букв нечетное.

4.Для ка­ко­го из при­ведённых имён ис­тин­но вы­ска­зы­ва­ние:
НЕ((Пер­вая буква со­глас­ная) ИЛИ (По­след­няя буква глас­ная))?

1) Иван - если НЕ(...) истинно, то то, что в скобках - ложно. В скобках два утверждения, соединенные ИЛИ, значит, оба должны быть ложны.

5. Для ка­ко­го из при­ведённых имён ложно вы­ска­зы­ва­ние:
(Тре­тья буква глас­ная) ИЛИ НЕ (По­след­няя буква глас­ная)?

2) Та­тья­на

6. Для ка­ко­го из при­ведённых чисел ис­тин­но вы­ска­зы­ва­ние: (число < 100) И НЕ (число чётное)?

3) 23

7. Для ка­ко­го из при­ведённых зна­че­ний числа X ис­тин­но вы­ска­зы­ва­ние: (X < 5) И НЕ (X < 4)?

4) 4 - действительно, 4 < 5, но неверно, что 4 < 4. 

8. Для ка­ко­го из при­ведённых имён ис­тин­но вы­ска­зы­ва­ние:
НЕ (Пер­вая буква со­глас­ная) И НЕ (По­след­няя буква глас­ная)?

1) Юлиан

9. Для ка­ко­го из при­ведённых зна­че­ний числа X ложно вы­ска­зы­ва­ние: НЕ (X < 7) ИЛИ (X < 6)?

3) 6

10. Для ка­ко­го из дан­ных слов ис­тин­но вы­ска­зы­ва­ние:
НЕ (есть ши­пя­щие) И (окан­чи­ва­ет­ся на глас­ную)?
Ши­пя­щие звуки — это [ж], [ш], [ч'], [щ'].

3) за­бо­та
4,6(56 оценок)
Открыть все ответы
Ответ:
NeznaykaVshkole
NeznaykaVshkole
09.11.2022
Этой программе все равно, сколько слов во фразе и какой они длины. А заодно, ей все равно, сколько между словами пробелов...

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
procedure Times(a:array of string; pic:string; var n:integer);
begin
  n:=a.Where(s->s=pic).Count
end;

begin
  var s:=ReadlnString('>').ToWords;
  var k:integer;
  var w:='ЗНАЧИТ'; Times(s,w,k); Println(k,'-',w);
  w:='ВОТ'; Times(s,w,k); Println(k,'-',w);
  w:='АВТОМОБИЛЬ'; Times(s,w,k); Println(k,'-',w);
end.

Тестовое решение
> ВОТ ЗНАЧИТ КАКОЕ ДЕЛО БЫЛО ЕХАЛ ПО ДОРОГЕ АВТОМОБИЛЬ И ВОТ СТОИТ ЧЕЛОВЕК И ДУМАЕТ А ЧТО ЗНАЧИТ СЛОВО АВТОМОБИЛЬ А СЛОВО АВТОМОБИЛЬ ЭТО ОТ ГРЕЧЕСКОГО АУТОС (САМ) И ЛАТИНСКОГО МОБИЛИС (ПОДВИЖНЫЙ) ВОТ ТАКОЕ ЭТО СЛОВО
2 - ЗНАЧИТ
3 - ВОТ
3 - АВТОМОБИЛЬ
4,5(97 оценок)
Ответ:
Дария2403
Дария2403
09.11.2022
В программе предполагается, что слова отделяются друг от друга одним пробелом, знаков препинания нет.
const m=3;
var s:string;
sl:array[1..m] of string=('ЗНАЧИТ', 'ВОТ', 'АВТОМОБИЛЬ');
n:array[1..m] of integer;
i:integer;
procedure pr(s1,s2:string; var k:integer);
var l,p:integer;
begin
 s1:=' '+s1+' ';
 l:=length(s2);
 k:=0;
 p:=pos(s2,s1);
 while p>0 do
  begin
  if (s1[p-1]=' ')and(s1[p+l]=' ') then k:=k+1;
  delete(s1,1,p+l);
  p:=pos(s2,s1);
  end;
end;
begin
writeln('Введите текст:');
readln(s);
for i:=1 to m do
 begin
 pr(s,sl[i],n[i]);
 writeln(sl[i],' - ',n[i]);
 end;
end.

Пример (слов меньше 40):
Введите текст:
ЗНАЧИТ ТАК ВОТ АВТОМОБИЛЬ РАЗ ВОТ АВТОМОБИЛЬ ДВА ВОТ АВТОМОБИЛЬ ТРИ
ЗНАЧИТ - 1
ВОТ - 3
АВТОМОБИЛЬ - 3
4,4(17 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ