Хозяин сидит на берегу пруда, зарастающего сорняками. Каждый день число сорняков удваивается. Он собирается приступить к расчистке, как только зарастёт

решение
Один день.

Хозяину на расчистку пруда останется 1 день

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 минуттан тұрады. Ойынның басталуында төреші алаңның қақ ортасында командалардың екі ойыншысының арасында тұрып допты тіке лақтырады. Олар секіріп, допты командасындағы әріптестеріне тартып әперуге тырысады.