<h3>PascalABC.NET 3.4.2, сборка 1814 от 02.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var s := ReadlnString('Введите строку:');
var c := ReadlnString('Какой символ удвоить?');
s := s.Replace(c, 2 * c);
s.Println
end.
Var x,yn,yk,h,cos,sin:real;
begin
x:=5; yn:=2;yk:=3; h:=0.1;
while yn <= yk+h do begin
cos:=yn / x;sin:= sqrt(1 - sqr(cos));
writeln(yn:6:2,cos:6:2,sin:6:2);
yn:= yn + h;end;<span>end.
жаль! питон не знаю, но это может поможет</span>
Begin
var e: double;
var s1: double;
var s2: double;
var x: double;
var step: integer;
readln(x);
e := 0.0001;
s1 := 1;
step := 3;
s2 := (1 + x) / (1 - x) / (1 - x);
while abs(s1 - s2) > e do begin
s1 := s1 + (1 + 2*step)/power(x, step);
end;
writeln(s1);
writeln(s2);
writeln(s1 - s2);
end.
Расставь правильно скобки в условии, я исправлю решение.
Различные windows быстрей и лучше работает.
<span> 1) 15, 14, 15, 14, 15, 14, 15, 14, 15, 14, 15, 14, 15, 14;</span>