Question

Viết chương trình và in ra màn hình các số chẵn từ 1 đến n , n là số tự nhiên nhập từ bàn phím.

Answer 1

uses crt;

var i,n:integer;

begin

clrscr;

write('n='); readln(n);

writeln('cac so chan trong khoang tu 1 toi ',n,' la:');

for i:=1 to n do

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

readln;

end.

Answer 2

uses crt;

var i,n:integer;

begin

clrscr;

write('n='); readln(n);

writeln('cac so chan trong khoang tu 1 toi ',n,' la:');

for i:=1 to n do

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

readln;

end.

Answer 3

program chan;

uses crt;

var i,n:integer;

begin

clrscr;

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

for i:=1 to n do

if i mod 2=0 then write('cac so chan tu 1 den n la:');

readln

end.

Answer 4

Viết chương trình pascal nhập n từ bàn phím xuất ra màn hình.

Nếu nlaf số chẵn thì xuất ra màn hình các số nguyên tố từ 2 -> n