Var
x, a, s: real;
n, i: integer;
begin
write('Введите x и n ');
readln(x, n);
a := 1;
s := a;
for i := 1 to n do
begin
a := a * (-1) * x * x / (2 * i - 1) / (2 * i);
s := s + a;
end;
writeln('S = ', s:10:3);
end.
Закрась клетки между двумя линиями, робот!
1)
2
"1011"
5
"21"
10
"11"
2)
5
"34"
15
"14"
3)4
"123"
6
"43"
8
"33"
12
"23"
24
"13"
текст скрипта
c = 27
ch="3"
for i in 2..36
t = c.to_s(i)
if t[t.length-1..t.length-1] == ch
p i,t
end
end
Миша футбол английский
Олег бадминтон немецкий
Ваня баскетбол французский
Витя лёгкая атлетика итальянский