Question

1. viết chương trình in ra số lẻ, số chẵn từ 1 đến n với n là số nhập từ bàn phím

2. viết chương trình in ra bảng cửu chương n (2<n<11), mỗi dòng xuất hiện sau 1 giây

Answer 1

1)

var n: integer ;

write('nhap gia tri n'); readln(n);

for 1 to n do

if i mod 2 =1 then write(i:3);

readln

end.

Answer 2

2)

var s,j:integer; n,i:byte; begin write(' nhap n : '); readln(n); s:=n; writeln(n,' * ','1',' = ',n); for i:= 2 to 10 do begin s:= s + n; for j:= 1 to 32600 do if j = 32600 then writeln(n,' * ',i,' = ',s); end; readln; end.

Answer 3

var s,j:integer; n,i:byte; begin write(' nhap n : '); readln(n); s:=n; writeln(n,' * ','1',' = ',n); for i:= 2 to 10 do begin s:= s + n; for j:= 1 to 32600 do if j = 32600 then writeln(n,' * ',i,' = ',s); end; readln; end.

Answer 4

2)

var

s,j:integer ;

n,i : byte;

begin

write('nhap n'); readln(n);

s:=n; writeln(n,'*','1','='.n); for i:=20 to 10 do begin s:=s+n; for j:=1 to 32600 do if j=32600 then writeln(n,'*',i,'=',s); end; readln; end.

Answer 5

2)