. Viết chương trình in ra các số chẵn từ 2 đến 20 m.n ơi giúp e vs ạ

0 bình luận về “. Viết chương trình in ra các số chẵn từ 2 đến 20 m.n ơi giúp e vs ạ”

1. Program Hotboy ;

   Uses crt;

   Var i: byte;

   Begin

   Clrscr;

   For i:=2 to 20 do

   If (i mod 2=0) then write(‘. ‘,i);

   Readln

   End.

   Bình luận

2. Program baitap;

   Uses crt;

   Var i,n: integer;

   Begin

   clrscr;

   Write(‘ Nhap so n: ‘); readln(n);

   for i:= 1 to 20 do i mod 2 = 0 then write(i:3, ‘,’)

   readln

   End.

   Bình luận