Program TaskC;
Var i, il: Integer;
Begin
For i := 1 To 21 Do
If i Mod 2 = 1 Then
Write(i, ' ');
i := i + 1;
End;
ReadLn;
End.
Program TaskD;
Var i: Integer;
Begin
For i := 1 To 11 Do
Write(i * 2, ' ');
End;
ReadLn;
End.
Program TaskE;
Var i: Integer;
Begin
For i := 10 DownTo 1 Do
Write(i, ' ');
ReadLn;
End.
Program TaskF;
Var i: Integer;
Begin
For i := 10 DownTo 1 Do
Begin
Write(i * 10, ' ');
End;
ReadLn;
End.
Program TaskG;
Var i, sum: Integer;
Begin
For i := 1 To 10 Do
sum := sum + i;
WriteLn(sum);
ReadLn;
End.
Program TaskH;
Var i, product: Integer;
Begin
product := 1;
For i := 1 To 5 Do
product := product * i;
WriteLn(product);
ReadLn;
End.
Program TaskI;
Var i, sum: Integer;
Begin
For i := -5 To 5 Do
sum := sum + Abs(i);
WriteLn(sum);
ReadLn;
End.
Program TaskJ;
Var c: Char;
Begin
For c := 'A' To 'Z' Do
Write(c, ' ');
ReadLn;
End.
Объяснение:
2.Cr(+3)2(S(+2)O(-2)4)3
3.H(+)Br(+)O(-2)
4.H(+)Br(+5)O(-2)3
5.Br(+3)F(-)3
6.Na(+)2Mn(+6)O(-2)4
7.K(+)Mn(+7)O(-2)4
8.Na(+)2Se(+6)O(-2)4
9.Na(+)2Se(+4)O(-2)3
10.O(0)2
11.O(-2)F(+)2
12.C(-4)H(+)4
13.H(+)2O(-2)
14.Mg(+2)3N(-3)2
15.(P(+5)O(-2)4)-3
16.(P(+5)2O(-2)7)-4
17.Al(+3)2Se(-2)3