Program n1;
Var E, a: Real;
N, i: Integer;
Begin
Write('N='); ReadLn(N);
E:=1;
For i:=1 To N Do
Begin a:=a/i;
E:=E+a
End;
WriteLn('E=', E)
End.
Алфавитом девятеричной системы счисления являются следующие цифры: 0, 1, 2, 3, 4, 5, 6, 7, 8
Правильный ответ 7, один брат на всех
Количество символов = 8*40*48
Объем рассказа = 8*40*48*8 бит = 8*40*48*8/8 байт = 8*40*48 байт = 8*40*48/1024 Кбайт = 15 Кбайт
//PascalABC.NET 3.1 сборка 1239
begin
var a := ReadArrInteger(ReadInteger('n='));
writeln(a.Count(x -> (x mod 3 = 0) and (x mod 10 = 2)));
end.