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.
Более совершенные текстовые редакторы, имеющие целый спектр возможностей по созданию документов (например, поиск и символов, средства проверки орфографии, вставка таблиц и др.), называют иногда текстовыми процессорами. Примером такой программы является Word из офисного пакета Microsoft Office.
Мощные программы обработки текста — настольные издательские системы — предназначены для подготовки документов к публикации. Пример подобной системы — Adobe PageM