Viết chương trình nhập vào 1 số nguyên dương n. Hay đoán xem có bao nhiêu số chia hết cho 3 và 5. Tính tổng các số đó
1 câu trả lời
mk làm trên pascal nha vì mk ko bt lớp 11 học pascal hay C++ nên mk làm pascal vì mk bt mỗi pascal thôi
uses crt;
var a,i,s,t:longint;
begin
clrscr;
writeln('hay nhap n:');readln(n);
s:=0; t:=0;
for i:=1 to n do
if (i mod 3 =0) or ( i mod 5=0) then begin
s:=s+1; t:=t +i;
end;
writeln('co tat ca ',s ,' chu so ');
write (' tong la:',t);
read
end.
bn thử xem có chạy đc không , nếu không thì bỏ lệnh s:=0 mà mk bôi đen đi
Câu hỏi trong lớp
Xem thêm
