Question

C1:Hãy viết chương trình in ra bảng nhân 8

C2:Viết chương trình hiển thị thông tin về: Họ tên học sinh, lớp trường, thành phố

C3:

a)Viết chương trình in ra các số lẻ nhỏ hơn hoặc bằng n với n là số tự nhiên được nhập từ bàn phím

b)Viết chương trình tính tổng S=1+2+3+4+...+n với n là số tự nhiên được nhập từ bàn phím

Answer 1

c1:

var i,j:integer;

begin

write('bang cuu chuong');

for i:=1 to 10 do if j:=8 then write(j:2 , 'x' ,i:2,'=', i*j:2);

end.

Answer 2

Cau 1:

Var i :integer;

Begin

Writeln (' Bang Nhan 8 : ');

For i:= 1 to 10 do Writeln (i , ' x ' , 8 , ' = ', j*8);

Readln;

end.

Cau 2:

Var t,l,p,s:string;

Begin

Writeln (' Ho ten hoc sinh : ');

Readln (t);

Writeln (' Lop : ');

Readln (l);

Writeln (' Truong : ');

Readln (s);

Writeln (' Thanh pho : ');

Readln (p);

Readln;

end.

Cau 3 :

a. Var n,i:integer;

Begin

Write (' nhap n = ');

Readln (n);

For i:= 1 to n do If (i mod 2 <>0) and (i<=n ) then write (i:4);

Readln;

end.

b.Var i,n,S:integer;

Begin

Write (' Nhap n = ');

Readln (n);

S:= 0;

For i:= 1 to n do S:=S+i;

Write (' Tong S = ',S);

Readln;

end.