Question

Viết chương trình pascal nhập 1 số nguyên dương n in ra màn hình số nguyên dương chẵn từ 1 đến n

Answer 1

Answer 2

pascal nha bạn:

Program so_nguyen_chan;

uses crt;

var n,i:integer;

begin

writeln('Nhap n=');readln(n);

For i:=1 to n do

If i mod 2 = 0 then writeln('Cac so chan nho hon n la: ',i);

readln

end.

Answer 3

có in bao gồm cả số nữa lại nữa không hay chỉ nhỏ hơn n

Answer 4

uses crt;

var n,i:integer;

begin

clrscr;

repeat

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

until n>0;

for i:=1 to n do 

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

readln;

end.

Answer 5

program so_chan;

uses crt;

var n, i: integer;

begin

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

for i:=1 to n do;

if i mod 2 = 0 then writeln (' La so chan') else;

readln

end.