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

H24

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

NT
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)
BT
17 tháng 3 2021 lúc 20:08

Bình luận (0)

Các câu hỏi tương tự
HH
Xem chi tiết
QN
Xem chi tiết
LD
Xem chi tiết
PL
Xem chi tiết
LD
Xem chi tiết
MC
Xem chi tiết
TN
Xem chi tiết
NH
Xem chi tiết
NB
Xem chi tiết