Решение 6 задания ОГЭ по информатике (6.8) про циклы и циклические алгоритмы

1
2
3
4
5
6
7

var i, u:integer;
Begin
u := 26;
For i := 1 to 5 do
   u := u – i;
Writeln(u);
End.

var i, u:integer; Begin u := 26; For i := 1 to 5 do u := u – i; Writeln(u); End.

1
2
3
4
5
6

DIM i,u AS INTEGER
u = 26
FOR i = 1 TO 5
   u = u – i
NEXT i
PRINT u

DIM i,u AS INTEGER u = 26 FOR i = 1 TO 5 u = u – i NEXT i PRINT u

1
2
3
4
5
6
7

Var k, i: integer;
Begin
k := 4;
For i := 1 to 3 do
   k := i + 2*k;
Writeln(k);
End.

Var k, i: integer; Begin k := 4; For i := 1 to 3 do k := i + 2*k; Writeln(k); End.

1
2
3
4
5
6

DIM i, k AS INTEGER
k = 4
FOR i = 1 TO 3
   k = i + 2*k
NEXT i
PRINT k

DIM i, k AS INTEGER k = 4 FOR i = 1 TO 3 k = i + 2*k NEXT i PRINT k