Bài 7. Câu lênh lặp

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
thanh mai

Viết chương trình tính tích các số chẳn và lớn hơn 10 từ 1 đến n. Với n  được nhập từ bàn phím, rồi  in kết quả ra màn hình  

cách 1: sử dụng lệnh for do

cách 2: sử dụng lệnh while do

HT.Phong (9A5)
11 tháng 4 2023 lúc 15:22

Cách 1 dùng lệnh for do:

Uses crt;

var i,n,k: integer;

begin clrcsr;

readln(n);

for i:=1 to n do begin

if(i mod 2=0) and (i>=10) then k:=k*i;

end;

writeln(k);

readln;

end.

Cách 2 dùng lệnh while do

Uses crt;

var m,n,o: integer;

begin clrcsr;

readln(n);

o:=1;

m:=1;

while (m<n) do begin

m:=m+1;

if(m mod 2=0) and (m>=10) then o:=o*m;

end;

writeln(o);

readln;

end.


Các câu hỏi tương tự
Thư Uyên
Xem chi tiết
Bảo Trâm
Xem chi tiết
Bảo Trâm
Xem chi tiết
Trịnh Nam
Xem chi tiết
Nguyễn Gia Huy
Xem chi tiết
Trương Đại Phong
Xem chi tiết
Kim Chi
Xem chi tiết
huy hoàng
Xem chi tiết
Minh Đông
Xem chi tiết