Question

Thực hiện viết chương trình:

- Tính tổng các số từ M đến N.

- Đếm các số chẵn (lẻ), chia hết cho 3 từ M đến N.

- Kiểm tra 1 số nguyên nhập vào từ bàn phím có phải là số chẵn (lẻ), số âm (dương), chia hết cho 3 hay không.

Answer 1

Program HOC24;

var x,m,d,d1,n: integer;

t: longint;

begin

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

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

t:=0; d:=0;

for i:=m to n do

begin

t:=t+i;

if i mod 2=0 then d:=d+1 else d1:=d1+1;

end;

writeln('Tong cac so tu ',m,' den ',n,' la: ',t);

write('Nhap so nguyen: '); readln(x);

if x mod 2=0 then writeln(x,' la so le') else writeln(x,' la so chan');

if x<0 then wirteln(x,' la so am') else writeln(x,' la so duong');

if x mod 3=0 then write(x,' chia het cho 3');

readln

end.

***** Ở đề bạn có ghi là chia hết nhưng không nói số chia hết cho mấy cụ thể, nên mình đã sửa thành chia hết cho 3 nếu chia hết cho khác bạn thay số 3 thành số đó nhé!

Answer 2

*Chương trình tính tổng các số từ m đến n

uses crt;

var m,n,i,t:integer;

begin

clrscr;

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

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

t:=0;

for i:=m to n do 

  t:=t+i;

writeln(t);

readln;

end.

Answer 3

*Chương trình Đếm các số chẵn (lẻ), chia hết cho 3 từ M đến N.

uses crt;

var m,n,i,dem1,dem2:integer;

begin

clrscr;

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

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

dem1:=0;

dem2:=0;

for i:=m to n do 

  begin

if (i mod 2=0) and (i mod 3=0) then inc(dem1);

if (i mod 2<>0) and (i mod 3=0) then inc(dem2);

end;

writeln('So so chan chia het cho 3 la: ',dem1);

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

readln;

end.

Answer 4

*Chương trình Kiểm tra 1 số nguyên nhập vào từ bàn phím có phải là số chẵn (lẻ), số âm (dương), chia hết cho 3 hay không.

uses crt;

var n:integer;

begin

clrscr;

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

if n mod 2=0 then writeln(n,' la so chan')

else writeln(n,' la so le');

if n<0 then writeln(n,' la so am')

else if n>0 then writeln(n,' la so duong')

else writeln(n,' khong la so duong cung khong la so am');

if n mod 3=0 then writeln(n,' chia het cho 3')

else writeln(n,' khong chia het cho 3');

readln;

end.