Попробуйте такой вариант:
programm one
var n, i: integer;
S: real;
begin
readln(n);
while(i != n)
begin
s := s + 1/((2*n+1)*(2*n+1));
i = i+1;
end;
writeln(s);
readln();
end.
Носитель информации - это тот объект, который информацию может хранить и передавать. В системе "человек - телевизор", носителем будет телевизор, ибо он передаёт человеку информацию, а не наоборот
Var
a: integer;
t,s: boolean;
begin
t := true;
read(a);
s := a > 0;
if a <> 0 then
read(a);
while t and (a <> 0) do
begin
t := (a > 0) <> s;
s := not s;
read(a)
end;
writeln(t)
end.
Суть шифра - заменяем букву на предыдущую по алфавиту английского языка.
Olymp
Nkxlo
Ответ: Nkxlo.