Bài 8. Lặp với số lần chưa biết trước

Eriken

Viết câu lệnh for in ra màn hình các số chẵn với dãy số 1,2,3,.....,100 theo 2 cách

bảo nam trần
25 tháng 1 2019 lúc 22:36

program cach1;

var i:integer

begin

for i:=1 to 100 do write(i*2);

readln

end.

program cach2;

var i:integer;

begin

for i:=1 to 100 do if i mod 2=0 then write(i);

readln

end.

Bình luận (0)
Dương Phan
25 tháng 1 2019 lúc 19:37

program ct1;

uses crt;

var i:integer;

begin

write (' Cac so chan trong day so la: ');

for i:=1 to 100 do if i mod 2=0 then write (i:3);

readln;

end.

- Thử xem nhé!

Bình luận (0)

Các câu hỏi tương tự
Huỳnh Hoài Nguyên
Xem chi tiết
nguyễn thị như ý
Xem chi tiết
Giap Nguyen Van
Xem chi tiết
huỳnh duy cát
Xem chi tiết
Trần Thị Mai Ngọc
Xem chi tiết
Yết Thiên
Xem chi tiết
Nguyễn Thị Ngọc Oanh
Xem chi tiết
Linh lung
Xem chi tiết
Lê Tâm Anh
Xem chi tiết