tính tích các số chia hết cho 2 nhưng không chia hết cho 4 trong phạm vi từ 1 đến 50 viết chương trình pascal
Xác định biến rẽ nhánh ,lặp

Question

tính tích các số chia hết cho 2 nhưng không chia hết cho 4 trong phạm vi từ 1 đến 50 viết chương trình pascal Xác định biến rẽ nhánh ,lặp

ngockhue · Answer

program tinhtich;

uses crt;

var s,i : longint;

begin

clrscr;

s:=1;

for i:=1 to 50 do if (i mod 2=0) and (i mod 4<>0) then s:=s*i;

writeln(‘s= ‘,s);

readln

end;

end.

i là biến rẽ nhánh và cũng là biến lặp

daohoa · Answer

program ct;

uses crt;

var s,i:longint;

begin

s:=1;

for i:=1 to 50 do if (i mod 2=0) and (i mod 4<>0) then s:=s*i;

write(‘S= ‘,s);

readln

end.

_ i vừa là biến rẽ nhánh vừa là biến lặp

GOOD LUCK =))

0 bình luận về “tính tích các số chia hết cho 2 nhưng không chia hết cho 4 trong phạm vi từ 1 đến 50 viết chương trình pascal Xác định biến rẽ nhánh ,lặp”