Программалық жасақтама неше түрге бөлінеді?

есть три цифры 1,2,3 которые могут стоять на 4-х местах

например 1111 каждую цифру можно использовать повторно

значит всего получится 3*3*3*3=81 число

есть пара неясностей в условии. если допускается такое, что единица и само число тоже являются делителями, то берите первый вариант решения, иначе - берите второе.

и еще кое-что: если нужно хотя бы 4 делителя, то оставьте все как есть, а если нужно ровно четыре делителя, в строчке  if k> =4 then write(i: 3); уберите знак >   .

1 вариант.

program zadacha;

var n, i, j, k : byte;

begin

write('введите число n');

for i: = 1 to n do begin

k: =0;

for j: = 1 to i do

if i mod j =0 then k: =k+1;

if k> =4 then write(i: 3);

2 вариант.

program zadacha;

var n, i, j, k : byte;

begin

write('введите число n');

for i: = 1 to n do begin

k: =0;

for j: = 2 to (i-1) do

if i mod j =0 then k: =k+1;

if k> =4 then write(i: 3);

сначала 9кбайт переделываем просто в байты. поэтому 9*1024=9216. потом переводим в биты? 9216*8=73728. и делим на 2048. получается 36 секунд.

var a,n,s: integer;

begin

  s: =1;

  n: =1;

  while n< =100 do begin

    readln(a);

    if a mod 3 =0 then s: =s*a;

    n: =n+1;

                          end;

  writeln(s);

end.

  вроде так

если что не так, исправлю