1) дикие животные
2) одежда
3) имена существительные среднего рода
4) деревья
5) плодовые деревья
6) молочные продукты
7) инструменты столяра
8) ягодные кустраники
9) слова с безударными гласными (словарные слова)
10) имена существительные женского рода
11) имена существительные 3 склонения женского рода
12) имена существительные мужского рода с шипящей на конце слова
13) числа
14) единицы измерения времени
15) один месяц каждого времени года
16) месяцы года, в которых 31 день
17) каждое число имеет свои признаки делимости
18) простые числа (деляться только на самого себя и на 1)
Волк,медведь,лиса,заяц - животные леса
Платье,пиджак,рубашка,брюки - одежда
Кино пальто,радио,шоссе - существительные среднего рода
Береза,тополь,кедр,ель,сосна - деревья
Яблоня,груша,слива,вишня - плодовые деревья
Молоко,кефир,творог,сметана - молочные продукты
Молоток,клещи,топор,пила - интсрументы плотника
Смородина,крыжовник,малина - кустраники
Корабль,колокол,колесо,корова - существительные с непроверяемыми гласными в корне слова
Корова,сорока,ворона,дорога - существительные с орфограммой ОРО
Печь,речь,дочь,ночь, - существительные 3 склонения
Луч,меч,плащ,овощ - существительные мужского рода
Нуль,сто,петьдесят,тысяча - числительные
Минута,секунда,час,сутки - единицы измерения времени
Февраль,май,август,сентябрь - месяцы года
Май,август,октябрь,декабрь - месыцы гоад, в которых 31 день
1,2,5,9 - числа
1,2,11,29 - простые числа (делитель только 1 и само число)
// PascalABC.NET 3.1, сборка 1198 от 11.03.2016
begin
var n:=ReadInteger; // очередной элемент
var k:=0; // искомое количество
var max:=n;
while n<>0 do begin
if n=max then Inc(k)
else
if n>max then begin max:=n; k:=1 end;
n:=ReadInteger;
end;
Writeln('Число ',max,' встретилось ',k,' раз(а)')
end.
Тестовое решение:
4
6
2
6
1
6
9
3
9
5
2
0
Число 9 встретилось 2 раз(а)