Bài 8. Lặp với số lần chưa biết trước

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Ngô Tiến Dũng

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

Bùi Anh Tuấn
26 tháng 1 2021 lúc 20:20

Olives
26 tháng 1 2021 lúc 20:13

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.

Bùi Anh Tuấn
26 tháng 1 2021 lúc 20:15

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

Nguyễn Lê Phước Thịnh
26 tháng 1 2021 lúc 21:23

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.

Lợnn
26 tháng 1 2021 lúc 21:25

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.


Các câu hỏi tương tự
huỳnh duy cát
Xem chi tiết
Trí Nguyễn
Xem chi tiết
Lê Tâm Anh
Xem chi tiết
Trúc Anh
Xem chi tiết
An Vy
Xem chi tiết
nguyễn thị như ý
Xem chi tiết
su nè
Xem chi tiết
Chira Nguyên
Xem chi tiết
Linh lung
Xem chi tiết