Tin học Viết chương trình

[anhvan31122k1@gmail.com]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

viết đoạn chương trình tính tổng các số nguyên chia hết 3 và 5 trong phạm vi từ 1 đến n (1 <=n<=100)

 

[ka1412]

Của bạn đây
uses crt;
var i,n:integer;
s:longint;
begin
clrscr;
repeat
write('Nhap n:');readln(n);
if (n<1) or (n>100) then writeln('Nhap lai n');
until (n>=1) and (n<=100);
write('Tong cac so chia het cho ca 3 va 5 trong khoang tu 1 den ',n,' la:');
for i:=1 to n do
if (i mod 3 =0) and (i mod 5=0) then s:=s+i;
write(s);
readln
end.

 

[anhvan31122k1@gmail.com]

thank nha hihi

))))