# data[].attributes.body
Bài 8:

uses crt;

var n:integer;

begin

clrscr;

read(n);

if n<18 then write('Nguoi do la thieu nien')

else if (n>=18) and (n<=39) then write('Nguoi do la thanh nien')

else if (n>=40) and (n<=60) then write('Nguoi do la trung nien')

else write('Nguoi do la lao nien');

end.

Bài 9:
uses crt;

var x,n:longint;

begin

clrscr;

read(n);

for x:=1 to n do if n mod x = 0 then write(x,' ');

end.

# data[].attributes.headline
Hiếu bài 8 (chi tiết có thể nhập họ và tên)

# data[].attributes.subject
Hiếu bài 8 (chi tiết có thể nhập họ và tên)

# data[].attributes.body
Bài 8:

var i:integer;

begin

read(i);

if i<18 then write('Nguoi do la thieu nien')

else if (i>=18) and (i<=39) then write('Nguoi do la thanh nien')

else if (i>=40) and (i<=60) then write('Nguoi do la trung nien')

else write('Nguoi do la lao nien');

end.

Bài 9:

var x,n:longint;

begin

read(n);

for x:=1 to n do if n mod x = 0 then
write(x,' ');

end.

# data[].attributes.body
Bài 8:
Var a:integer;
Read(a);
If a<18 then write('Nguoi do la thieu nien');
If (a>=18) and (a<=39) then write('Nguoi do la thanh nien');
If (a>=40) and (a<=60) then write('Nguoi do la  trung nien');
If a>60 then write('Nguoi do la lao nien');
End.
Bài 9:
Var i,n:integer;
Begin
Read(n);
For i:=1 to n do if n mod i=0 then write(i,' ');
End.

# data[].attributes.body
bài 8:
var n:integer;
begin
read(n);
if n<18 then write('thieu nien');
if (n>=18) and (n<=39) then write('thanh nien');
if (n>=40) and (n<=60) then write('trung nien');
if n>60 then write('lao nien');
readln;
end.

Bài 9:
var n,i:integer;
begin
read(n);
for i:=1 to n do if n mod i=0 then write(i,' ');
end.

# data[].attributes.body
Bài 8:
uses crt;
var n:integer;
begin
clrscr;
read(n);
if n<18 then write('Nguoi do la thieu nien')
else if (n>=18) and (n<=39) then write('Nguoi do la thanh nien')
else if (n>=40) and (n<=60) then write('Nguoi do la trung nien')
else write('Nguoi do la lao nien');
end.
Bài 9: uses crt;
var x,n:longint;
begin
clrscr;
read(n);
for x:=1 to n do if n mod x = 0 then write(x,' ');
end.

# data[].attributes.body
Bài 7:
Var i:integer;
Begin
For i:=1 to 100 do begin write (i,’ ’);
If i mod 10=0 then writeln(i,’ ’);
Readln;
End.

# data[].attributes.body
Bài 6:

Var i:integer;

Begin

For i:=1 to 10 do

If i mod 2=1 then writeln(i,’ ’);

Readln;

End.

Bài 7:

Var i:integer;

Begin

For i:=1 to 100 do begin write (i,’ ’);

If i mod 10=0 then writeln(i,’ ’);

Readln;

End.

# data[].attributes.body
Bài tập 1. Sau khi thực hiện đoạn chương trình sau, giá trị của biến j bằng bao nhiêu ?

BAN ĐẦU j:= 0;

For i:= 1 to 5 do

j:= j + 2;

Trả lời:

Giá trị của biến j khi đó bằng 10

Bài tập 2. Các câu lệnh Pascal sau có hợp lệ không? Vì sao?

a) For i:= 100 to 1 do

Writeln(‘A’);

b) For i:= 1.5 to 10.5 do

Writeln(‘A’);

Trả lời:

a) Câu lệnh này không hợp lệ. Vì trong câu lệnh lặp chỉ được lặp theo thứ tự ít đến nhiều

b) Câu lệnh này không hợp lệ. Vì câu lệnh lặp chỉ có thể nhận giá trị số nguyên

Bài tâp 3. Chương trình Pascal sau đây thực hiện hoạt động nào?

Var i:integer;

Begin

For i:=1 to 10 do write( ’ chao ban’);

End.

Trả lời:

Chương trình trên nhằm lặp ại 10 lần câu “chao ban”

Bài 4: Viết chương trình in ra các số tự nhiện từ 1 đến 10 (sử dụng vòng lặp for ..do)

Trả lời:

Var i:integer;

Begin

For i:=1 to 10 do write(i,‘ ‘);

End.

Bài 5: viết chương trình in ra các số chẵn từ 2 đến 10 (sử dụng vòng lặp for ..do)

Trả lời:

Var i:integer;

Begin

For i:=2 to 10 do

If i mod 2=0 then write(i,’ ‘);

End.

# data[].attributes.body
Bài 5:
var i:integer;
begin
for i:=1 to 10 do begin
if i mod 2=0 then write(i,' ');
end;
end.
Bài 6:
var i:integer;
begin
for i:=1 to 10 do begin
if i mod 2=1 then write(i,' ');
end;
end.
Bài 7:
var i:integer;
begin
for i:=1 to 100 do begin write(i,' ');
if i mod 10=0 then
write(i,' ');
end;
end.

# data[].attributes.body
Bài 1:

-Giá trị biến j=10

Bài 2:

a) Câu lệnh đúng

b) Câu lệnh sai

Bài 3:

-Chương trình trên để lặp lại 10 câu “chao ban”

Bài 4:

Var i:integer;

Begin

For i:=1 to 10 do writeln(i,’ ’);

Readln;

End.

Bài 5:

Var n:integer;

Begin

For n:=2 to 10 do if n mod 2=0 then writeln(n,' ');

End.
Bài 6:
var i,n:integer;
begin
for n:=1 to 10 do if n mod 2=1 then write (n,' ');
readln;
end.

# data[].attributes.body
Nguyễn Thu Ngân

# data[].attributes.body
Bài 1:

-Giá trị biến j=10

Bài 2:

a) Không hợp lệ, vì thứ tự không được từ lớnđến bé

b) Không hợp lệ, vì câu lệnh chỉ nhận giá trị nguyên

Bài 3:

-Chương trình trên để lặp lại 10 câu “chao ban”

Bài4:

Var i:integer

Begin

For i:=1 to 10 do writeln(i,’’);

Readln

End.

Bài 5:

Var i:integer;

Begin

For i:=2 to 10 do

If i mod 2=0 then write(i,’ ‘);

End.
Bài 5 kiểu mới:
var i:integer;
begin
for i:=1 to 10 do if i mod 2 = 0 then write (i, ' ');
end.
Bài 6:
var i:integer;
begin
for i:=1 to 10 do if i mod 2 = 1 then write (i, ' ');
end.
Bài 7:
var i:integer;
begin
for i:=1 to 100 do begin
write(i, ' ');
if i mod 10 = 0 then writeln(i, ' ');
end;
end.