Uses GraphABC;
var r: integer;
begin
while r < 100 do begin
r := r + 10;
DrawEllipse(300-r,200-r,300+r,200+r);
end;
end.<span>
</span>
Ответ:
01100110₂
Объяснение:
102₁₀ = 0*2⁰ + 1*2¹ + 1*2² + 0*2³ + 0*2⁴ + 1*2⁵ + 1*2⁶ = 1100110₂
К 1100110₂ дописываем слева нули, чтобы дополнить до 8 разрядов:
01100110₂
Var n,i,s:integer;
begin
write('n = '); readln(n);
s:=0;
for i:=1 to n do
if i mod 2 =0 then s:=s-i else s:=s+i;
writeln('s = ',s);
end.
Пример:
n = 10
s = -5
ЭВМ- электронная вычислительная машина, связана , что информатика- урок только для компьютер и разной техники!
2) Сейчас есть микро ЭВМ (Ноутбуки...) они используются для работы, для дома, для школы...
3)<span> В1946 в США </span>была создана первая электронная вычислительная машина<span> (</span>ЭВМ<span>) - ENIAC (Electronic Numerical integrator and Computer - </span>Электронный<span> числовой интегратор и </span>компьютер<span>).</span>