ПРИМЕРЫ ПРОГРАММИРОВАНИЯ НА ЯЭЫКЕ PASCAL ПРОГРАММИРОВАНИЯ НА ЯЗЫКЕ PASCAL 7. (ЦИКЛЫ)
Цикл с предусловием Цикл с постусловием Цикл с параметром Program SNW; VAR N,K,S:integer; BEGIN READ(N); K:=1; S:=0; WHILE K
Цикл с предусловием Цикл с постусловием Цикл с параметром Program SNW; VAR K,S:integer; BEGIN K:=50; S:=0; WHILE K
Цикл с постусловием Program SNW; VAR N, K, S: integer; BEGIN READ(N); K:=2; S:=0; WHILE K
Цикл с постусловием Program SNW; VAR K, S: integer; BEGIN K:=6; S:=0; WHILE K
Цикл с постусловием Program SNW; VAR K,S:integer; BEGIN K:=10; S:=0; WHILE K
Цикл с постусловием Program SNW; VAR N,K,S:integer; BEGIN READ(N); K:=1; S:=0; WHILE K
Цикл с постусловием Program SNW; VAR N,K,S:integer; BEGIN READ(N); K:=3; S:=0; WHILE K
Цикл с постусловием Program SNW; VAR N,K,S:integer; BEGIN READ(N); K:=5; S:=0; WHILE K
Цикл с постусловием Program SNW; VAR N,K,S:integer; BEGIN READ(N); K:=10; S:=0; WHILE K
Цикл с постусловием Program SNW; VAR K,S:integer; BEGIN K:=20; S:=0; WHILE K
Цикл с предусловием Цикл с постусловием Цикл с параметром Program SNW; VAR N, K, P: integer; BEGIN READ(N); K:=1; P:=1; WHILE K
Цикл с предусловием Цикл с постусловием Program SNW; VAR N, K, P: integer; BEGIN READ(N); K:=2; P:=1; WHILE K
Цикл с предусловием Цикл с постусловием Program SNW; VAR N, K, P: integer; BEGIN K:=16; P:=1; WHILE K
Цикл с предусловием Цикл с постусловием Program SNW; VAR N, K, P: integer; BEGIN READ(N); K:=1; P:=1; WHILE K
Цикл с предусловием Цикл с постусловием Program SNW; VAR K, P: integer; BEGIN K:=11; P:=1; WHILE K
Цикл с предусловием Цикл с постусловием Program SNW; VAR N, K, P: integer; BEGIN READ(N); K:=3; P:=1; WHILE K
Цикл с предусловием Цикл с постусловием Program SNW; VAR K, P: integer; BEGIN K:=12; P:=1; WHILE K
Цикл с предусловием Цикл с постусловием Program SNW; VAR N, K, P: integer; BEGIN READ(N); K:=5; P:=1; WHILE K
Цикл с предусловием Цикл с постусловием Program SNW; VAR K, P: integer; BEGIN K:=10; P:=1; WHILE K
Цикл с предусловием Цикл с постусловием Цикл с параметром Program SNW; VAR N,K:integer; BEGIN READ(N); K:=1; WHILE K
Цикл с предусловием Цикл с постусловием Цикл с параметром Program SNW; VAR N,K:integer; BEGIN READ(N); K:=2; WHILE K
Цикл с предусловием Цикл с постусловием Цикл с параметром Program SNW; VAR N,K:integer; BEGIN READ(N); K:=1; WHILE K
Цикл с постусловием Program SNW; VAR N, K: integer; BEGIN READ(N); K:=3; WHILE K
Цикл с постусловием Program SNW; VAR N, K: integer; BEGIN READ(N); K:=5; WHILE K
Цикл с постусловием Program SNW; VAR N, K, S: integer; BEGIN READ(N); K:=1; S:=0; WHILE K
Цикл с предусловием Цикл с постусловием Цикл с параметром Program SNW; VAR N, K, P: integer; BEGIN READ(N); K:=1; P:=1; WHILE K