<span>2626 +
2618 +
2624 +
2628 - возрастание
2826 - </span>максимальное число от сложения трех цифр не м.б. > 27<span>
2426 - возрастание
1826 - </span>возрастание<span>
106 +
ответ: 4</span>
флешка 400 байт потому что там больше объём
Var n : integer;
begin
readln (n);
if (n > -100) and (n < 100) then write ('Это число двузначное');
if (n > -1000) and (n < 1000) then write (Это число трёхзначное);
end.
Const
e = 0.000001;
var
i, f, f1, thn, t: integer;
s, s1: real;
begin
i := 0;
f1 := 1;
f := 2;
thn := -1;
s := 1;
s1 := 0;
repeat
i := i + 1;
s1 := s;
thn := thn * -3;
s := s + 2 * i / f / thn;
writeln(2 * i, ' ', f, ' ', thn, ' ', s);
t := f1;
f1 := f;
f := f + t
until abs(abs(s1) - abs(s)) < e;
writeln(s);
end.