Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Hoshimiya Akari

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

1: Tính tổng các số từ M -> N

2: Kiểm tra 1 số nguyên nhập từ bàn phím có phải là số chẵn (lẻ), số âm (dương), chia hết (yêu cầu sử dụng CTC để viết)

Nguyễn Lê Phước Thịnh
5 tháng 5 2021 lúc 13:15

Bài 1: 

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.

Nguyễn Lê Phước Thịnh
5 tháng 5 2021 lúc 13:17

2:

uses crt;

var n:integer;

{---------------chuong-trinh-con-kiem-tra-chan-le---------------------}

function ktcl(x:integer):boolean;

begin

if x mod 2=0 then ktcl:=true

else ktcl:=false;

end;

{--------------------chuong-trinh-con-kiem-tra-duong-am-------------------}

fucntion ktda(x:integer):boolean;

begin

if x>0 then ktda:=true

else if x<0 then ktda:=false;

end;

{--------------------chuong-trinh-chinh-------------------------}

begin

clrscr;

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

if ktcl(n)=true then writeln('Day la so chan')

else writeln('Day la so le');

if ktda(n)=true then writeln('Day la so duong')

else writeln('Day la so am');

readln;

end.


Các câu hỏi tương tự
Nguyễn Đức Ánh
Xem chi tiết
Lê Quang Hiếu
Xem chi tiết
Nguyễn Cảnh Hùng
Xem chi tiết
Nguyễn Cảnh Hùng
Xem chi tiết
Thiên Nhật
Xem chi tiết
lam nguyen
Xem chi tiết
Thành Tân B1-
Xem chi tiết
HIển Long Đặng Hồ
Xem chi tiết
Vũ Tú
Xem chi tiết