# Computer science the 9th class, a cycle with a post-condition (repeat).№1. The sequence of integers which sign of the termination - 0 is given. Nayti quantity of negative elements of the sequence, multiple 7.№2. Preparing for competitions, the skier in the first day ran 10 km., then every day increased distance by 10% of previous day. For what day of trainings it will run more To km.? Please consider please repeat operator

Aleksey

329

Var A, k: integer; Begin k: = 0; Repeat ReadLn (A); if (A< 0) and (A mod 7 = 0) then k: = k+1; Until A = 0; WriteLn (k =, k); End. If means when the number of the kilometers passed in a day exceeds K, then here: Var A, K, n: real; Begin Write (K =); ReadLn(K); A: = 10; n: = 0; Repeat n: = n+1; A: = A*1. 1 Until A> K; WriteLn(n) End. If means when the total number of the passable kilometers exceeds K, then here: Var A, K, n, S: real; Begin Write (K =); ReadLn(K); A: = 10; n: = 0; S: = A; Repeat n: = n+1; A: = A*1. 1; S: = S+A; Until S> K; WriteLn(n) End.

396

Answer add
vyara

### Other questions in the section - informatics

Protasiy

Napissat the program in pascal for an algorithm. Photo inside

2020-10-26 10:00:32

Kyuochach

Napishite outputs the program which accepts an integer from the keyboard and then 20

2020-10-26 10:00:32

Harlampiy

PASCAL of CHILDREN SROCHNYAK Domashnyaya rabota1) to Solve a problem in three ways: To

2020-10-26 10:00:32

Malaath

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

2020-10-26 10:00:32

Roman