1)
var n,i,d,z:integer; s:real;
begin
readln(n);
s:=1; d:=1; z:=1; i:=1;
repeat
i:=i+1;
d:=d*2;
z:=-z;
s:=s+z/d;
until i>=n;
writeln('s = ',s);
end.
2)
var n,i,d,z:integer; s:real;
begin
readln(n);
s:=1; d:=1; z:=1; i:=1;
while i<n do
begin
i:=i+1;
d:=d*2;
z:=-z;
s:=s+z/d;
end;
writeln('s = ',s);
end.
3)
var n,i,d,z:integer; s:real;
begin
readln(n);
s:=1; d:=1; z:=1;
for i:=2 to n do
begin
d:=d*2;
z:=-z;
s:=s+z/d;
end;
writeln('s = ',s);
end.
Пример:
5
s = 6.875000000000000e-01
2)Если на столе скопилось слишком много документов и инструментов и они начали мешать работе пользователя, те окна, которые временно не нужны, можно уменьшить в размерах или же полностью свернуть. За свернутым окном сохраняются все ресурсы. Мало того, программа, окно которой свернуто, продолжает выполняться. Свернутое окно можно вновь развернуть и привести его в то состояние, которое окно имело перед свертыванием. Свернутое программное окно представлено кнопкой на панели задач, а свернутое окно документа обычно размещается в углу рабочей зоны программного окна. Свертывание окна часто называют минимизацией окна. Способы свертывания окна:
□ рекомендуемый — щелкнуть по кнопке свертывания в заголовке окна;
□ стандартный — выбрать команду Свернуть из системного меню окна;
□ дополнительный способ: программное окно можно свернуть, щелкнув по кнопке окна на панели задач.
Кнопка свернутого окна рельефно выделена над панелью задач, а кнопка развернутого — углублена в панель. При наличии на Рабочем столе нескольких окон последний прием, в зависимости от ситуации, может привести к переключению на другое окно.5)Окно может иметь полосы прокрутки. Это говорит о том, что размер окна слишком мал, чтобы полностью отразить всѐ содержимое. Каждая полоса прокрутки имеет ползунок. Перетаскивая ползунки по полосе прокрутки, можно просмотреть в окне всю рабочую область. Небольшое смещение рабочей области выполняют щелчками на кнопках прокрутки. В одном из открытых окон выполните следующие действия: нажимайте клавишу Enter, пока не активизируется вертикальная полоса прокрутки; нажимайте клавишу пробел, пока не активизируется горизонтальная полоса прокрутки; перетащите вверх ползунок вертикальной полосы прокрутки; перетащите влево ползунок горизонтальной полосы прокрутки; вернитесь к курсору, щелкая на кнопках прокрутки.
Любую? тогда так:
var a,b,c:real;
begin
writeln('Первое число');
readln(a);
writeln('Второе число');
readln(b);
c := a + b;
writeln('Ответ:',c)
end.
если что-то не правильно скажи. А то я не могу проверить т.к. компа рядом нету.
var
n, r: integer;
begin
write('n = ');
readln(n);
writeln;
while (n > 0) and (r < > 2) do
begin
r : = n mod 10; { < == последняя цифра числа }
n : = n div 10 { < == удаляем последнюю цифру }
end;
writeln(r = 2); { < -- выводим значение выражения (r=2) }
readln
end.
N= 2 в степени i
N = 16
i=?
4 бит
