Если у лампочки <u>три</u> состояния, то нужно перевести число 14 в <u>троичную</u> систему счисления.
14 /3 = 4, остаток 2
4 / 3 = 1, остаток 1
1 / 3 =0, остаток 1.
Теперь выписываем остатки в обратном порядке: 14₁₀ = 112₃
В числе три разряда, поэтому достаточно трех лампочек.
<u><em>Ответ: 3</em></u>
program chisla;
var summa,n,y,i:longint;
begin
writeln('daite N'); readln(n);
for i:=1 to n do summa:=summa+i;
{etot tikl dayot summu dlya nomera N, primer: n=5, summa=1+2+3+4+5=15;}
y:=(n+1)/2;
if y>summa then writeln('Y > summa N ') else
if y=summa then writeln('Y = summa N') else writeln('Y < summa');
readln;
end.
ya tak ponyal zadachu, esli ne tak, proshu popraviti. spasibo
О том, какими возможностями обладают вычислительные машины.
Как быстро они могут считывать информацию, обрабатывать, в сотни раз быстрее человека.
Единственное о чем следуют помнить - компьютер выполнят команды, задаваемые человеком. Соответственно именно поэтому они и не смогут "Захватить мир", как об этом рассказывают в фильмах ;)
<span>program n1;
uses crt;
var aw:array[1..10] of integer;
i,w,g:integer;
begin
g:=0;
w:=10;
for i:=0+1 to w do begin
aw[i]:=random(100);
write(aw[i]:6);
end;
writeln();
write('Чот');
for i:=0+1 to w do begin
if aw[i] mod 2 = 0 then g:=g+1; end; write('Всего чотных чисел ',g);
writeln();
write('Не чот');
g:=0;
for i:=0+1 to w do begin
if aw[i] mod 2 > 0 then g:=g+1;end; write('Всего не чотных чисел ',g) ;
end<span>.
только в столбик
</span></span>
Положительного, есть теория по этому)