Bài 1:
Nhập M, N từ bàn phím (M < N). Tính tổng các số chia hết cho 5 trong phạm vi từ M đến N.
Bài 2:
Nhập M, N từ bàn phím (M < N). Có bao nhiêu số chia hết cho 3 trong phạm vi từ M đến N.
Bài 1: Nhập M, N từ bàn phím (M < N). Tính tổng các số chia hết cho 5 trong phạm vi từ M đến N. Bài 2: Nhập M, N từ bàn phím (M < N). Có bao nhiêu s
By Melody
Bài 1:
program oken;
uses CrT;
var m,n,i,tong:integer;
begin
clrscr;
write(‘nhap m: ‘); readln(m);
write(‘nhap n: ‘); readln(n);
if m<n then
for i:=m to n do
if i mod 5=0 then tong:=tong+i;
writeln(‘tong cac so chia het cho 5: ‘,tong);
readln;
end.
Bài 2:
program oken;
uses crt;
var m,n,i,dem:integer;
begin
clrscr;
write(‘nhap m: ‘); readln(m);
write(‘nhap n: ‘); readln(n);
if m<n then
for i:=m to n do
if i mod 3=0 then dem:=dem+1;
writeln(‘cac so chia het cho 3: ‘,dem);
readln;
end.
Bài 1:
Program FNG;
Uses crt;
Var m,n,s,i: longint;
Begin
Clrscr;
Write(‘Nhap m va n: ‘); Readln(m,n);
s:=0;
For i:=m to n do
If i mod 5 = 0 then s:=s+i;
Write(‘S = ‘,s);
Readln
End.
Bài 2:
Program FNG;
Uses crt;
Var m,n,d,i: longint;
Begin
Clrscr;
Write(‘Nhap m va n: ‘); Readln(m,n);
s:=0;
For i:=m to n do
If i mod 3 = 0 then inc(d);
Write(d);
Readln
End.