Câu 3 :

uses crt;

var m, n, i, s  : integer;

begin

clrscr;

write('nhap so m :');readln(m);

write('nhap so n :');readln(n);

s := 0;

for i := m to n do

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

writeln('tong s la :', s);

readln

end.

Câu 4 :

uses crt;

var a, i, b, k, dem  : integer;

begin

clrscr;

write('nhap so k :');readln(k);

write('nhap so a :');readln(a);

write('nhap so b :');readln(b);

dem := 0;

for i := a to b do

if i mod k = 0 then dem := dem + 1;

writeln('co ', dem ,' so la boi so cua ', k);

readln

end.

Câu 5 :

uses crt;

var a, b, bc : integer;

begin

clrscr;

write('nhap so a :');readln(a);

write('nhap so b :');readln(b);

bc := a * b;

while a <> b do

if a > b then a := a - b else b := n - a;

writeln('boi chung nho nhat la :', bc div a);

readln

end.

Câu 6 :

uses crt;

var m, n, i,  s : integer;

begin

clrscr;

s := 0;

write('nhap so m :');readln(m);

write('nhap so n :');readln(n);

for i := m to n do s := s + i;

writeln('tong :', s);

readln

end.

Câu 7 :

uses crt;

var m, n, i, dem : integer;

begin

clrscr;

write('nhap so m :');readln(m);

write('nhap so n :');readln(n);

dem  := 0;

for i := m to n do

if (i mod 3 = 0) or (i mod 5 = 0) then dem := dem + 1;

writeln('co ', dem ,' so chia het cho 3 hoac cho 5');

readln

end.

Câu 5 :

uses crt;

var a, b, bc : integer;

begin

clrscr;

write('nhap so a :');readln(a);

write('nhap so b :');readln(b);

bc := a * b;

while a <> b do

if a > b then a := a - b else b := n - a;

writeln('boi chung nho nhat la :', bc div a);

readln

end.

Câu 6 :

uses crt;

var m, n, i,  s : integer;

begin

clrscr;

s := 0;

write('nhap so m :');readln(m);

write('nhap so n :');readln(n);

for i := m to n do s := s + i;

writeln('tong :', s);

readln

end.

#mấy câu này tui lm đc thôi :)

#mấy câu kia tui không có bt

#hc tốt nha ^^