Поделитесь своими знаниями, ответьте на вопрос:
MEIN TEST Znam słownictwo i gramatykę Zadanie 5. Przeczytaj tekst. Uzupełnij luki (5.1.-5.6.) wyrazami (A-1 Trzy wyrazy zostały podane dodatkowo i nie pasują do żadnej luki. A. deine B. Ärztin C. Mutter D. Eltern E. Architekt F. Vater G. Beruf H. Geschwister I. meine Hallo, Anne! Auf dem Foto ist meine Familie. Meine (5.1.) (5.5.) Und wie ist (5.6.) Familie? sind 40. Mein (5.2.) ist (5.3.) und meine (5.4) ist 16
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.
Объяснение: