REAL;BEGINWRITELN(‘NHAP VAO 1 SO THUC’) ;READLN(A) ;IF (A MOD 2<>0) THEN WRITELN(‘A LA SO LE’) ELSE WRITELN(‘A LA SO CHAN’) ;READLNEND

bài 4 - DE CUONG HK1 TIN HOC 8 CO DAP AN
DE CUONG HK1 TIN HOC 8 CO DAP AN
Bài 4

Var a : real;

Begin

Writeln(‘Nhap vao 1 so thuc’) ;

Readln(a) ;

If (a mod 2<>0) then writeln(‘a

la so le’)

Else writeln(‘a la so chan’) ;

Readln

End.

a . 7 b. 1