2 задача program qq; var b, c, z, d: integer; S, a: real; begin S := 0; z := 1; b := 2; c := 3; d:= 3; a := 1; while abs(a) > 0.001 do begin S := S + a; a := z * b / (c*d); z := - z; b := b + 2; c := c + 2; d:=d*3; end; writeln('S =', S:10:3); end. КАК то так
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку