Using System;
class Program
{
static void Main(string[] args)
{
int N = int.Parse(Console.ReadLine());
double sum = 0;
for (int i = 1; i <= N; i++)
sum += 1.0 / i;
Console.WriteLine(sum);
}
<span>}</span>
<em>// PascalABC.NET 3.2, сборка 1356 от 04.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var s:=ReadlnString('>');
var n:=s.Length;
for var i:=n downto 1 do
Writeln((i-1)*' '+s[i:n+1].Inverse+s[i:n+1])
end.
<u>Пример</u>
> Геленджик
кк
киик
кижжик
киждджик
киждннджик
кижднеенджик
кижднелленджик
кижднелееленджик
кижднелеГГеленджик
var
x,z:string;
i:integer;
ar:array['а'..'я'] of boolean;
begin
readln(x);
readln(z);
for i:=1 to Length(z) do
ar[z[i]]:=true;
for i:=Length(x) downto 1 do
if (ar[x[i]] = true) then delete(x,i-1,1);
writeln(x);
<span>end.
Не забудь отметить лучший ответ ;-)</span>
После упрощения получим.
AvB
<span>
</span>
Blade серверы.blade-серверы<span> отличаются </span>высокой эффективностью энергосбережения<span>. В новых системах используются новейшие </span><span>микропроцессоры AMD и Intel с низким напряжением питания...</span>