Bài 7. Câu lênh lặp

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Huy Nguyễn
Viết chương trình in ra màn hình N số chẵn liên tiếp ( tính từ 10), với N là số tự nhiên nhập từ bàn phím (N>=10) Sử dụng lênh lặp while do In N ra số chắn đó thành nhiều hàng mỗi hàng 10 số hàng cuối cùng có thể là 10 số hoắc ít hơn
Nguyễn Lê Phước Thịnh
31 tháng 3 2021 lúc 12:59

uses crt;

var a:array[1..100]of integer;

i,n,dem:integer;

begin

clrscr;

repeat

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

until n>=10;

a[1]:=10;

i:=1;

while i<=n do 

  begin

i:=i+1;

a[i]:=a[i-1]+2;

end;

dem:=0;

for i:=1 to n do 

  begin

write(a[i]:4);

dem:=dem+1;

if dem mod 10=0 then writeln;

end;

readln;

end.


Các câu hỏi tương tự
thanh mai
Xem chi tiết
Bảo Trâm
Xem chi tiết
Nguyễn Gia Huy
Xem chi tiết
Minh Ngọc
Xem chi tiết
Thư Uyên
Xem chi tiết
Huỳnh Hân
Xem chi tiết
Bảo Trâm
Xem chi tiết
Kim Chi
Xem chi tiết
DinoDrang
Xem chi tiết