c1:
Var i, n: word;
Begin
Write('nhap n = '); readln(n);
i:=1;
While i<=n do
Begin
Write(i, ' '); i:=i+2;
End;
Readln
End.
C2:
Var a: array[1..250] of integer;
i, n, d: byte;
Begin
Write('n = '); readln(n);
D:=0;
For i:=1 to n do
Begin
Write('a[', i, '] = '); readln(a[i]);
If a[i] mod 2 =0 then inc(d);
End;
For i:=1 to n do if a[i] mod 2 = 0
Then write(a[i], ' ');
Writeln;
Write('co ', d, ' so chan);
Readln
End.
C3
Var s: string;
i: byte;
Begin
Write('nhap xau: '); readln(s);
For i:=length(s) downto 1 do
write(s[i]);
Readln
End.
