3
var n: integer;
s: real;
begin
s:=0;
n:=1;
while n <= 3*3*3*3*3*3*3*3 do begin
s:= s+1/n;
n:= n*3;
end;
writeln(s);
end.
4
var a: integer;
s: real;
begin
s:=1;
readln(a);
for var i:=1 to a do begin
s:= s-1/(i+1);
s:= s+1/(i+2);
end;
writeln(s);
end.
Для обработки текстовой информации предназначены текстовые редакторы и текстовые процессоры - Microsoft Word, Open Office Writer, WordPad, Блокнот.
Для обработки графической информации - растровые и векторные графические редакторы - Microsoft Paint, Adobe Photoshop, Corel Draw.
Для обработки числовой информации - редакторы электронных таблиц (Microsoft Excel, OpenOffice Calc), калькулятор (стандартный в Windows), математические пакеты - Mathematica
Таблица истинности продемонстрирована в прилагаемом изображении.
Var
n: integer;
begin
readln(n);
writeln(n mod 7 = 0);
end.