бірінші жолда 10, 16; төртінші жолда 18,4,0; бесінші жолда 11,4,6, (әрі қарай білмеймін)
Const
x = 0.75;
eps = 0.5e-3;
var
s, y1, y2, n, sgn, x2, prevf: real;
begin
{для второго члена последовательности}
x2 := sqr(x);
prevf := 2;
y1 := 1; {первый член последовательности}
y2 := x2 / prevf; {второй член последовательности}
s := y1; {накопленная сумма ряда}
n := 1; {последний член последовательности в сумме}
sgn := 1; {знак очередного члена ряда}
while abs(y1 - y2) >= eps do
begin
s := s + y2; {продолжаем накопление}
n := n + 1;
y1 := y2;
x2 := x2 * sqr(x);
prevf := prevf * (2 * n - 1) * 2 * n;
sgn := -sgn;
y2 := sgn * (2 * n - 1) * x2 / prevf
end;
writeln('Сумма ряда из ',n, ' членов равна ', s)
end.
Тестовое решение:
Сумма ряда из 5 членов равна 1.24291779994965
1.
var
a : integer;
begin
read (a);
writeln (sqrt (a) * 4);
end.
2.
var
x : integer;
begin
read (x);
if (x mod 2 = 0) then writeln ('Четное')
else writeln ('Нечетное');
if (x mod 3 = 0) then writeln ('Делится на 3')
else writeln ('Не делится на 3');
end.
Ответ:
использовать Робот
алг
нач
вперед
нц пока слева стена и снизу свободно
вниз
кц
влево
вверх
нц пока справа стена и сверху свободно
закрасить
вверх
кц
вправо
нц пока снизу стена и справа свободно
вправо
кц
вниз
нц пока снизу свободно и слева стена
закрасить
вниз
кц
кон
Объяснение: