in ra 10 số chẵn trên 1000
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
Tùng Minky
Tùng Đẹp Trai
Reply: Pascal
Bạn coi bài này xem OK không?
Mã nguồn :
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
Bạn coi bài này xem OK không?
Mã nguồn :
Mã:
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
Nếu đề bắt in ngẫu nhiên thì sao - có thể làm không TùngBạn coi bài này xem OK không?
Mã nguồn :
Mã: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
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
đề 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
Tùng Đẹp Trai
Bài viết mới nhất
-
Kho truyện ngắn cực hay- shopoga
-
Sách Hay Mỗi Ngày
- shopoga
-
