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.
Объяснение: