Viết chương trình nhập vào số tự nhiên n, in ra các số từ 1 đến n.

0 bình luận về “Viết chương trình nhập vào số tự nhiên n, in ra các số từ 1 đến n.”

1. program Tin_hoc;

   uses crt;

   var i,n:integer;

   begin

   clrscr;

   write(‘n=’);readln(n);

   writeln(‘Cac so tu 1 den n la:’);

   for i:= 1 to n do write(i,’   ‘);

   readln;

   end.

   Bình luận

2. Uses crt;

   var n,i:integer;

   begin

   write(‘nhap n: ‘);readln(n);

   for i:=1 to n do write(i:3);

   readln

   end.

   Bình luận