Понравился ли тебе поступок мальчика? (Правда всего дороже)

Да, конечно.

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.

Объяснение:

ОЙЫННЫҢ ТЕХНИКАЛЫҚ ТӘСІЛДЕРІ

*Баскетбол*-ептілікті қажет ететін қызу тартысты спорт ойын. Оған бес ойыншыдан тұратын екі команда қатысады. Баскетбол алаңының қарама-қарсы екі шетіне орнатылатын қалқаны бар тағандарға сақина бекітіледі. Ойынның мақсаты- допты қарсыласының сақинасына түсіріп, ұпай жинау. Ойыншылар допты лақтыруға, пас жасауға, домалатуға немесе жерге жиі-жиі ұрып дриблингпен алып жүруіне болады. Доп өзіне тигеннен кейін ойыншы онымен тек екі адым ғана аттай алады. Баскетболды таза 20 минуттан екі тайм ойнайды. Таймдардың арасындағы үзіліс 10 минуттан тұрады. Ойынның басталуында төреші алаңның қақ ортасында командалардың екі ойыншысының арасында тұрып допты тіке лақтырады. Олар секіріп, допты командасындағы әріптестеріне тартып әперуге тырысады.