<span>var
i, s, p :integer;
begin
write ('n=');
readln (n);
s:=0;
p:=1;
for i:=1 to n do
</span> begin<span>
if i mod 5=0 then s:=s+i;
</span> if i mod 3=0 then <span> p:=p*i
end;
Writeln ('s=', s, ' p=', p)
end.
2)
</span><span>var
i, s, p :integer;
begin
write ('n=');
readln (n);
s:=0;
p:=1;
</span> i:=1<span>
while i<= n do
</span> begin<span>
if i mod 5=0 then s:=s+i;
</span> if i mod 3=0 then <span> p:=p*i;
i:=i +1;
end;
Writeln ('s=', s, ' p=', p)
end.</span>
Program n1;
const n=11;
var RAF: array[1..n] of integer;
i: integer;
p: real;
begin
write('массив: ');
for i:=1 to n do begin
RAF[i]:=random(21)-5;
write(RAF[i],' ');
end;
p:=1;
writeln;
for i:=1 to n do if RAF[i]<0 then p:=p*RAF[i];
write('произведение отрицательных: ',p);
end.
"for i := a to/downto b do" используется, если известно, сколько раз точно будет выполнен цикл.
Следует отметить, что 1 условие выполняется во всех цепочках, а значит его можно не рассматривать.
Рассмотрим каждую комбинацию отдельно:
HDEE
2 условие - true
3 условие - true
4 условие - true
Подходит
<span>HHAE
</span>2 условие - true
3 условие - false(H на 2 месте)
<span>HEAE
</span>2 условие - true
3 условие - true
4 условие - true
Подходит
<span>AHAH
</span>2 условие - true
3 условие - true
4 условие - true
Подходит
<span>AEAD
</span>2 условие - true
3 условие - true
4 условие - true
Подходит
<span>AEED
</span>2 условие - false(E на 3 месте)
<span>CAEH
</span>2 условие - false(A не входит в список допустимых значений)
<span>EHAD
</span>2 условие - true
3 условие - false(E <span>не входит в список допустимых значений)
</span><span>CDEA
</span>2 условие - true
3 условие - true
4 условие - false(A <span>не входит в список допустимых значений)
Ответ: 4</span>