Question

1.Viết chương trình nhập vào số nguyên a. KT xem số đó là số chẵn hay số lẻ.

2. Viết chương trình tích tích các số từ 5 đến, với n nhập từ bàn phím(n>5)

Answer 1

1:

uses crt;

var a:integer;

begin

clrscr;

write('a='); readln(a);

if a mod 2=0 then writeln(a,' la so chan')

else writeln(a,' la so le');

readln;

end.

2:

uses crt;

var n,i,s:longint;

begin

clrscr;

write('n='); readln(n);

if n>5 then

begin

s:=1;

for i:=5 to n do

s:=s*i;

writeln(s);

end

else writeln('vui long nhap lai');

readln;

end.