viết chương trình in ra các số chẵn từ 1 đến n với n nhập từ bàn phím

0 bình luận về “viết chương trình in ra các số chẵn từ 1 đến n với n nhập từ bàn phím”

1. uses crt;
   var n,i:longint;
   begin
           clrscr;
           write(‘Nhap n: ‘);readln(n);
           write(‘Cac so chan tu 1 den n: ‘); 
           for i:=1 to n do if i mod 2=0 then write(i,’ ‘);
           readln
   end.

   Bình luận

2. Program chuongtrinh;

   uses crt;

   var i,n:integer;

   begin

   clrscr;

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

   writeln(‘cac so chan trong tu 1 den ‘,n,’ la:’);

   for i:=1 to n do

   if i mod 2=0 then write(i:4:2);

   readln;

   end.

   Bình luận