lập trình đếm tính tổng các số chia hết cho 3 và 5 trong đoạn [100;200]
2 câu trả lời
Uses crt;
Var s,i,d:integer;
Begin
Clrscr;
S:=0;
D:=0;
For i:=100 to 200 do
If (i mod 3 =0) and (i mod 5 =0) then begin
D:= d+1;
S:= s+i;
End;
Writeln(' tong cac so chia het cho 3 va 5 la ',s);
Writeln('co ',d,' so chia het cho 3 va 5');
Readln;
End.
uses crt;
var i, s : longint;
begin
clrscr;
s := 0; for i := 100 to 200 do
if (i mod 3 = 0) and (i mod 5 = 0)
then s := s + i;
write('S = ', s);
readln
end.
Câu hỏi trong lớp
Xem thêm
