Здравствуйте! В этом сочинении я расскажу, почему хочу поступить на факультет информатики.
Как нетрудно было догадаться, основной причиной такого выбора стало то, что мое будущее я планирую связать с программированием. Еще со школы я решил, что хочу работать в этой сфере.
Вот несколько фактов, которые практически окончательно убедили меня, что это профессия мне подходит.
Во-первых, программист никогда не останется без работы. Круг его деятельности невообразимо широк. Он нужен везде, на любом современном производстве.
Во-вторых, у программистов достойная заработная плата. Главная причина такого расклада - высокая востребованность представителей данной профессии на производстве. Также, причиной высокой оплаты труда программиста является то, что продукция, в которой он заинтересован, дает большую прибыль: она либо массово покупается, либо дорого стоит, либо и то и другое сразу.
Как видите, мой выбор основан не на каких то пустяках, а на реальной заинтересованности в ней. Ведь - главное, это чтобы работа была тебе по душе!
Ответ:
program Delitel;
var
n, i, j, c, d: Integer;
a: array of Integer;
begin
Write ('Введите N: ');
ReadLn (n);
SetLength (a, n + 1);
for i := 1 to n do begin
c := 0;
for j := 1 to i do begin
if i mod j = 0 then
Inc (c);
end;
a [i] := c;
end;
c := 1;
for i := 1 to n do begin
if a [i] > a [c] then
c := i;
end;
WriteLn ('Число ', c, ' имеет ', a [c], ' делителей.');
ReadLn;
end.