1)
Program task1;
var
i, j, sum: integer;
begin
for i:=100 to 125 do
begin
sum:=1+i;
for j:=2 to i div 2 do
begin
if i mod j = 0 then sum:=sum+j;
if sum>216 then break;
end;
if sum = 216 then writeln(i);
end;
end.
2)
Program task2;
var
i, j, k: integer;
begin
for i:=110 to 120 do
begin
k:=2;
for j:=2 to i div 2 do
begin
if i mod j = 0 then inc(k);
if k=8 then break;
end;
if k < 8 then writeln(i, ', k = ', k);
end;
end.
Волк,медведь,лиса,заяц - животные леса
Платье,пиджак,рубашка,брюки - одежда
Кино пальто,радио,шоссе - существительные среднего рода
Береза,тополь,кедр,ель,сосна - деревья
Яблоня,груша,слива,вишня - плодовые деревья
Молоко,кефир,творог,сметана - молочные продукты
Молоток,клещи,топор,пила - интсрументы плотника
Смородина,крыжовник,малина - кустраники
Корабль,колокол,колесо,корова - существительные с непроверяемыми гласными в корне слова
Корова,сорока,ворона,дорога - существительные с орфограммой ОРО
Печь,речь,дочь,ночь, - существительные 3 склонения
Луч,меч,плащ,овощ - существительные мужского рода
Нуль,сто,петьдесят,тысяча - числительные
Минута,секунда,час,сутки - единицы измерения времени
Февраль,май,август,сентябрь - месяцы года
Май,август,октябрь,декабрь - месыцы гоад, в которых 31 день
1,2,5,9 - числа
1,2,11,29 - простые числа (делитель только 1 и само число)
1) дикие животные
2) одежда
3) имена существительные среднего рода
4) деревья
5) плодовые деревья
6) молочные продукты
7) инструменты столяра
8) ягодные кустраники
9) слова с безударными гласными (словарные слова)
10) имена существительные женского рода
11) имена существительные 3 склонения женского рода
12) имена существительные мужского рода с шипящей на конце слова
13) числа
14) единицы измерения времени
15) один месяц каждого времени года
16) месяцы года, в которых 31 день
17) каждое число имеет свои признаки делимости
18) простые числа (деляться только на самого себя и на 1)
// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018
// Внимание! Если программа не работает, обновите версию!
begin
for var i:=100 to 125 do
begin
var s:=i+1;
for var j:=2 to i div 2 do
if i mod j=0 then s+=j;
if s=216 then i.Print
end
end.
102 110
begin
for var i:=110 to 120 do
begin
var k:=2;
for var j:=2 to i div 2 do
if i mod j=0 then k+=1;
if k<8 then Println(i,k)
end
end.
111 4
113 2
115 4
116 6
117 6
118 4
119 4