var
k, n: byte;
t: integer;
begin
readln(n);
for i: byte := 1 to n do
begin
readln(t);
if ((t > 0) and (t mod 3 = 0)) then
k += 1;
end;
writeln(k);
end.
---------------------------
алг
нач
цел k, i, n, t
k := 0
ввод n
нц для i от 1 до n
ввод t
если ((t > 0) и (mod(t, 3) = 0)) то
k := k + 1
все
кц
вывод k
кон
Вообще по классике решение такое:
Свечи горят и продолжают гореть, пока не прогорят полностью. Потому погасшие 2 свечи остаются, а 5 сгорают
А вообще лучше уточнить ситуацию и время
<span>for n in range(10)<span>:
</span>----x = 2**n +<span>3
</span></span>----<span>print('x',n,'=',x)
N = int(input("N = "))
s = <span>0
</span>for i in range(0,N+1)<span>:
</span></span>----<span>s += i**<span>2
</span>print('Sume = ',s)
def Factor(n)<span>:
</span></span>----<span>Ans = []
</span>----<span>d = <span>2
</span></span>----<span>while d * d <= n<span>:
</span></span>--------<span>if n % d == 0<span>:
</span></span>------------<span>Ans.append(d)
</span>------------<span>n //= d
</span>--------<span>else<span>:
</span></span>--------<span>d += <span>1
</span></span>----<span>if n > 1<span>:
</span></span>--------<span>Ans.append(n)
</span>----<span>return Ans
print(Factor(100))</span>
<span>Федеральный закон от 20 февраля 1995 г. № 24-ФЗ «Об информации, информатизации и защите информации»
</span><span>Федеральный закон от 29 июля 2004 г. № 98-ФЗ «О коммерческой тайне»
</span><span>4 июля 1996 г. № 85-ФЗ «Об участии в международном информационном обмене»</span>
N=1(моно)*16000гц*32(рареш)*660сек=337920000бит=42240000байт=41250кбайт=40, 2 мб