# 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

Harlampiy

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
galya

### Other questions in the section - informatics

Malaath

Please count please. Task Pascal. Two variables of the whole A and B type

2020-10-26 10:00:32

Roman

Napishite the program which calculates the sums of elements of the A[1:50] array filled

2020-10-26 10:00:32

Askold

Task 1. Filling of the massif from a to bdan the massif from 30

2020-10-26 10:00:32

Bralanim

Find all natural numbers which are not exceeding the set number N, kotoryedelitsya without

2020-10-26 10:00:32

Androdora