Question

[Võ Khắc Duy]

Viết 1 công thức nhập một số nguyên N trên bàn phím yêu cầu a) xét tính chẳn lẽ của N b) tính tổng các số chia hết cho 5 trong phạm vi từ 1 tới N

Answer 1

[Nguyễn Lê Phước Thịnh]

uses crt;

var n,i,t:integer;

begin

clrscr;

readln(n);

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

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

t:=0;

for i:=1 to n do

  if i mod 5=0 then t:=t+i;

writeln(t);

readln;

end.