1N

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

NT
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.

Bình luận (0)

Các câu hỏi tương tự
NV
Xem chi tiết
H24
Xem chi tiết
HN
Xem chi tiết
H24
Xem chi tiết
LT
Xem chi tiết
DP
Xem chi tiết
H24
Xem chi tiết
H24
Xem chi tiết
ML
Xem chi tiết