Bài 10: Cấu trúc lặp

Tiến

Giúp em gấp mn ơi Viết chương trình in ra các số chẵn nhỏ hơn hoặc bằng n ( với n được nhập từ bán phím) sao cho 15 số được in trên một dòng

Nguyễn Lê Phước Thịnh
17 tháng 3 2021 lúc 20:03

uses crt;

var i,n,dem:integer;

begin

clrscr;

write('Nhap n='); readln(n);

dem:=0;

for i:=1 to n do 

  if i mod 2=0 then 

begin

inc(dem);

write(i:4);

if dem=15 then writeln;

end;

readln;

end.

Bình luận (2)
Bùi Anh Tuấn
17 tháng 3 2021 lúc 20:08

Bình luận (0)

Các câu hỏi tương tự
Hoàng Hugi
Xem chi tiết
Quân Nguyễn
Xem chi tiết
Lê Văn Đức
Xem chi tiết
Phụng Lã
Xem chi tiết
Lê Thị Thùy Dung
Xem chi tiết
Minh Châu
Xem chi tiết
Thương Nhi
Xem chi tiết
Nguyễn Thu Hiền
Xem chi tiết
nguyen thi be
Xem chi tiết