Website and domain for sale: mail@discussmain.com

PASCAL of CHILDREN SROCHNYAK Domashnyaya rabota1) to Solve a problem in three ways: To calculate the sum S=1+1/2+1/3+...+1/50.2) to Print in the form of the table of value of function at = (3х2-2)/4, for values x, changing - 3 to 3 with a step 0.23) to Count quantity of negative numbers from 10, entered from a klaviaturyzadaniye: 1. Napissat programmy2. To check them through the PascalABC program, to keep and send to the teacher (surely!!!) 3. At the following lesson to hand over notebooks with the written programs

125
1) Var A: integer; S: real; Begin {First way } of S: = 0; For A: = 1 to 50 do S: = S+1/A; WriteLn (S =, S); {The second way } S: = 0; A: = 1; Repeat S: = S+1/A; A: = A+1; Until A> 50; WriteLn (S =, S); {The third way } S: = 0; A: = 1; While A< = 50 do Begin S: = S+1/A; A: = A+1; End; WriteLn (S =, S) End. Var x: real; Begin x: =-3; Repeat WriteLn (y (x) =, ((3*x*x-2)/4): 0: 3); x: = x+0. 2 Until x> 3. 2; End. Var A: real; k, i: integer; Begin k: = 0; WriteLn (Enter ten numbers); For i: = 1 to 10 do Begin Read (A); if A< 0 then k: = k+1 End; WriteLn (k =, k) End.
297
Answer add