Сколько существует различных последовательностей из символов "плюс" и "минус" длиной ровно три символа?

Комбинаторика вроде как, но даже логически понятно если подумать что это не + и -, а 0 и 1,и   тут логически должно стать понятно что все как и там,а   значит два в третьей степени,а именно 8 различных, да что уж там вот все 8 --+ -+- -++ +-- +-+ ++- +++

program r; uses crt; var a, c, d, l, k: string[50]; b: integer; beginwriteln('! '); writeln('давай познакомимся! как тебя зовут? '); readln(a); writeln(' приятно, ',a,'! ','а меня зовут евгений.'); writeln('сколько тебе лет? '); readln(b);

if (a = 'антон' and b=15) thenwriteln(' через 50 лет тебе уже будет 65 лет, а звать тебя будут не антон, а дед антон');

writeln('мне тоже,' b, '! '); writeln('какую музыку ты любишь слушать? '); readln(c); writeln('ничего себе! да у нас похожие вкусы! ведь я тоже люблю слушать ', c); writeln('какое время года ты любишь? '); readln(d); writeln('я тоже обожаю ',d); writeln('какой твой любимый цвет? '); readln(l); writeln('мне кажется, мы во многом это и мой любимый цвет.'); writeln('кто ты по знаку зодиака? '); readln(k); writeln('надо же! я тоже ',k,'.'); writeln('было приятно познакомиться и поговорить,' a,'! пока! '); end.

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

и еще кое-что: если нужно хотя бы 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);