Lập trình đơn giản

Dương Thị Thanh Hương

Sử dụng lệnh lặp for..do. Viết chương trình in ra 50 số chẵn tự nhiên đầu tiên?

Đoàn Gia Khánh
13 tháng 3 2019 lúc 21:41

program ko_co_ten;

uses crt;

var i:integer;

begin

clrscr;

for i:1 to 50 do writeln(i);

readln;

end.

Bình luận (0)
Luân Đào
14 tháng 3 2019 lúc 10:55

program fh;

uses crt;

var i: integer;

begin

clrscr;

writeln('50 so chan tu nhien dau tien la: ');

for i:=1 to 50 do write(i);

readln

end.

Bình luận (0)
Tú Nguyễn
14 tháng 3 2019 lúc 12:00

var i:integer;

begin

for i:=1 to 50 do

if i mod 2=0 then write(i);

readln;

end.

Bình luận (0)
Minh Lệ
27 tháng 5 2023 lúc 0:09

Bài của tất cả các bạn sai rồi . Các bạn làm như vậy thì kết quả sẽ là in 25 số chẵn thay vì 50 số chẵn . Cách làm như sau :

Lời giải :

program hotrotinhoc ;

var i : integer ;

Begin

for i:= 1 to 100 do

if i mod 2 =0 then write(i,' ');

readln

end.

Bình luận (4)

Các câu hỏi tương tự
Ma Phan Đức
Xem chi tiết
Bé Heo
Xem chi tiết
Tuyết Lê
Xem chi tiết
Trần Thị Thùy Trang
Xem chi tiết
Kamato Heiji
Xem chi tiết
lio Nana
Xem chi tiết
Jenny Phạm
Xem chi tiết
Tiến Lê nhật
Xem chi tiết
ahihi 123
Xem chi tiết