in ra 10 số chẵn trên 1000

 

[Tùng Minky]

Reply: Pascal

Bạn coi bài này xem OK không?
Mã nguồn :

program Tim_so_chan_tren_1000;
uses crt;
var i: integer;
BEGIN
i := 1000;
writeln('TIM SO CHAN');
writeln('-------------------------------------------------------);
write('Muoi so chan tren 1000 la:');
Repeat   
i := i + 2;
write(i, ',')
Until i = 1020;
readln;
END.

Kết quả khi chạy :

Bài này mình sử dụng vòng lặp Repeat ... Until ( thực hiện lệnh trước rồi mới xét điều kiện sau) nên khá đơn giản. Còn mấy vòng lặp khác mình chưa nghiên cứu

 

[Sửu Nguyễn]

Reply: Pascal

Bạn coi bài này xem OK không?
Mã nguồn :

program Tim_so_chan_tren_1000;
uses crt;
var i: integer;
BEGIN
i := 1000;
writeln('TIM SO CHAN');
writeln('-------------------------------------------------------);
write('Muoi so chan tren 1000 la:');
Repeat   
i := i + 2;
write(i, ',')
Until i = 1020;
readln;
END.

Kết quả khi chạy :

Bài này mình sử dụng vòng lặp Repeat ... Until ( thực hiện lệnh trước rồi mới xét điều kiện sau) nên khá đơn giản. Còn mấy vòng lặp khác mình chưa nghiên cứu

Nếu đề bắt in ngẫu nhiên thì sao - có thể làm không Tùng

 

[forumanhduong]

Reply: Pascal

đề chuẩn là in ra 10 bội số của 1 số k (k là 1 số bất kì) bội số đó lớn hơn 1000 . Chương trình bạn đơn giản thế thì mình dùng for to do

 

[Tùng Minky]

Reply: Pascal

đề chuẩn là in ra 10 bội số của 1 số k (k là 1 số bất kì) bội số đó lớn hơn 1000 . Chương trình bạn đơn giản thế thì mình dùng for to do

Bạn phải viết đề rõ ràng mình mới giải được chứ