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

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.