program Positiv;
var i:integer; x,sum:real;
begin
sum:=0;
for i:=1 to 10 do
begin
write('введите ',i,'-е число: ');
readln(x);
if x>0 then sum:=sum+x;
end;
writeln('Cумма положительных чисел равна ',sum);
end.
Var n,k,i:integer;
begin
write('n = ');
readln(n);
k:=0;
for i:=1 to n do
if (i mod 3=0)and(i mod 6<>0)
then k:=k+1;
writeln('k = ',k);
end.
Пример:
<span>n = 100
k = 17</span>
119_10 = 167_8
Решение внутри
=======================
Количество лампочек = log(2)15 ≈ 4
(2^4 = 16)