Перевести программу на ! program qq; var b,n,z,x,c: - вопрос №10520904 от такко 11.06.2021 17:15

Question

Информатика: Перевести программу на ! program qq; var b,n,z,x,c: integer; s,a: real; begin s: =0; z: =1; b: =2; n: =2; x: =3; a: =1; while abs(a) 0.001 do begin s: =s+a; a: =z*b/(n*x); c: =c*(n-1)+c*(n-2); x: =x*3; z: =-z; b: =b+2; end; writeln( s= ,s: 10: 3); end.​

такко · Answer

дуктом питания, упоминания о ней можно найти в древних летописях, и только после XVIII столетия она уступила свою популярность завезенному из Америки картофелю. Растение репа – ценный овощной и лекарственный продукт. Ее можно запекать, варить, фаршировать, добавлять в салаты. Репа обладает антисептическим, противовоспалительным, мочегонным, обезболивающим и ранозаживляющим действием. Она повышает аппетит, усиливает перистальтику кишечника, ускоряет процесс усвоения пищи организмом.

Объяснение:

баллы хочу

Перевести программу на ! program qq; var b,n,z,x,c: integer; s,a: real; begin s: =0; z: =1; b: =2; n: =2; x: =3; a: =1; while abs(a)> 0.001 do begin s: =s+a; a: =z*b/(n*x); c: =c*(n-1)+c*(n-2); x: =x*3; z: =-z; b: =b+2; end; writeln('s=',s: 10: 3); end.​

Перевести программу на !

program qq;
var b,n,z,x,c: integer;
s,a: real;
begin
s: =0; z: =1;
b: =2; n: =2; x: =3; a: =1;
while abs(a)> 0.001 do begin
s: =s+a;
a: =zb/(nx);
c: =c(n-1)+c(n-2);
x: =x*3;
z: =-z;
b: =b+2;
end;
writeln('s=',s: 10: 3);
end.