Question

Bài 1 viết chư ơng trình pascal nhập vào 2 số nguyên m và n đưa ra màn hình tổng số chia hết cho 3 và 5 từ m đến N

Answer 1

uses crt;

var m,n,t,i:integer;

begin

clrscr;

repeat

write('Nhap n='); readln(n);

write('Nhap m='); readln(m);

until m<n;

t:=0;

for i:=m to n do 

  if (i mod 3=0) and (i mod 5=0) then t:=t+i;

writeln('Tong cac so chia het cho 3 va 5 trong khoang tu ',m,' toi ',n,' la: ',t);

readln;

end.