Mọi người giúp em với ạ.Tính tích các số nguyên dương nhỏ hơn 50,là bội của 7 em cảm ơn nhìu ạ
2 câu trả lời
**FOR...TO...DO
Program baitap;
Uses crt;
Var i:longint;
T:qword;
Begin
Clrscr;
T:=1;
For i:=7 to 50 do
If i mod 7=0 then T:=T*i;
Writeln('Ket qua:',T);
Readln
End.
____________________________________
WHILE...DO
Program baitap;
Uses crt;
Var i:longint;
T:qword;
Begin
Clrscr;
T:=1;
i:=7;
While i<=50 do
Begin
If i mod 7=0 then T:=T*i;
i:=i+1;
End;
Writeln('Ket qua:',T);
Readln
End.
For:
uses crt;
var i: longint;
res: qword;
begin
clrscr;
res:=1;
for i:=7 to 50 do
if i mod 7 = 0 then res:=res * i;
writeln(res);
readln;
end.
While:
uses crt;
var i: longint;
res: qword;
begin
clrscr;
res:=1; i:=7;
while i < 50 do
begin
res:=res * i;
inc(i, 7);
end;
writeln(res);
readln;
end.
