Question

1 viết chương trình kiểm tra số dương (âm), số chẵn (lẻ)

2 viết câu lệnh FOR - Do trình tính tổng các số lẻ trong phạm vi từ 1...100

Answer 1

1:

uses crt;

var n:integer;

begin

clrscr;

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

if n>0 then writeln(n,' la so duong')

else if n<0 then writeln(n,' la so am')

else writeln(n,' khong la so duong cung khong la so am');

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

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

readln;

end.

2:

uses crt;

var i,t:integer;

begin

clrscr;

t:=0;

for i:=1 to 100 do

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

writeln('tong cac so le trong pham vi tu 1 toi 100 la: ',t);

readln;

end.