viết chương trình in ra mà hình các số chẵn từ 1 đến 50

2 câu trả lời

var i:integer;

begin

for i:=1 to 50 do

if i mod 2=0 then write(' Cac so chan tu 1 den 50 la: ',i,' ');

readln;

end

Thuật toán chương trình:

   Bước 1: Nhập một số tự nhiên n và một biến d.

   Bước 2: Gán giá d=n mod 2.

   Bước 3: Nếu d=0 thì đấy là số chẵn, ngược lại thì đấy là số lẻ.

   Bước 4. Kết thúc thuật toán.

- Chương trình Pasca