Question

in ra các số lẻ chia hết cho 3trong khoảng từ m đến n với m,n nhập từ bàn phím

Answer 1

program So_le;

uses crt;

Var i,n,m:integer;

Begin

clrscr;

writeln('Nhap so m');readln(m);

writeln('Nhap so n lon hon m');readln(n);

for i:= m to n do If i mod 3=0 and i mod 2=1 then writeln('So le chia het cho 3 la: ',i);

readln

end.

Answer 2

var m,n,i:integer;

begin

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

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

if m>n then repeat

write(' Nhap lai m: ');readln(m);

write(' Nhap lai n: ');readln(n);

until m<n;

for i:=m to n do

if (i mod 2=1) and (i mod 3=0) then write(i,' ');

readln;

end.

Answer 3

program tsl;

uses crt;

Var n,m,i:integer;

Begin

clrscr;

writeln('Nhap so be');readln(m);

writeln('Nhap so lon ');readln(n);

for i:= m to n do

If (i mod 3=0) and (i mod 2<>0) then

writeln('So le chia het cho 3 la: ',i);

readln

end.

Answer 4

m<n hay n<m