Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
16 Lê Hoàng Bảo Ngọc

Giúp mình với ạ, mai mình kiểm tra rồi TvT

Nguyễn Lê Phước Thịnh
11 tháng 3 2022 lúc 9:40

uses crt;

var s:real;

a,i,n:integer;

begin

clrscr;

readln(a,n);

s:=1;

for i:=1 to n do 

  if i mod 2=0 then s:=s*(a+i);

writeln(s:0:0);

readln;

end.


Các câu hỏi tương tự
Nguyễn Thuý Vy
Xem chi tiết
TTTheGodd
Xem chi tiết
Hoàng Yến Nhi
Xem chi tiết
vothedien
Xem chi tiết
Lờ Hờ Tờ
Xem chi tiết
dung pham
Xem chi tiết
Trường
Xem chi tiết
Trường
Xem chi tiết
Mai linh
Xem chi tiết