Question

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

Answer 1

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.