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 минуттан тұрады. Ойынның басталуында төреші алаңның қақ ортасында командалардың екі ойыншысының арасында тұрып допты тіке лақтырады. Олар секіріп, допты командасындағы әріптестеріне тартып әперуге тырысады.
Поделитесь своими знаниями, ответьте на вопрос:
В соревнованиях по плаванию Света, Валя, Настя, Катя и Галя заняли со второго по шестое места. Катя на 3 с отстала от победительницы и на 2 с — от Насти
В соревнованиях по плаванию Света, Валя, Настя, Катя и Галя заняли со второго по шестое места. Катя на 3 с отстала от победительницы и на 2 с — от Насти