viết CT nhập n số chẵn liên tiếp từ 10(mỗi hàng 10 số)

0 bình luận về “viết CT nhập n số chẵn liên tiếp từ 10(mỗi hàng 10 số)”

1. uses crt;
   var i,a:longint;
   begin
   clrscr;
      writeln(‘Nhap cac so chan lien tiep tu 10: ‘);
      repeat
         read(a);
         inc(i); if i=10 then begin writeln; i:=0; end;      
      until 1=2;
   readln
   end.

   Bình luận