Viết chương trình con kiểm tra tính chẳn lẻ của một số nguyên Viết chương trình con kiếm tra một số là số âm hay số dương. Làm giúp em 2 bài này với ạ em đang cần gấp

Duonghuyen0425

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 58 xem

1 trả lời

Thích Trả lời

trangduong0914

program chan_le;

uses crt;

var n:integer;

function ktcl(k:integer):boolean;

begin

if k mod 2=0 then ktcl:=true else ktcl:=false;

end;

begin

clrscr;

write('Nhap so can kiem tra: '); readln(n);

if ktcl(n)=true then write('Chan') else write('Le');

readln;

end.

program am_duong;

uses crt;

var n:integer;

fucntion ktad(k:integer):boolean;

begin

if k>0 then ktad:=true

else ktad:=false;

end;

begin

clrscr;

write('Nhap so can kiem tra: '); readln(n);

if n=0 then write('Khong am khong duong')

else if ktad(n)=true then write('Duong')

else write('Am');

readln;

end.

Vote (0) Phản hồi (0) 2 năm trước

284459976064583

Câu 1:

var a: longint;
begin
write('Nhap so can kiem tra: ');
readln(a);

if (a mod 2 = 0) then write(a,' la so chan.') else write(a,' la so le.');
readln;
end.

Câu 2:

var a: longint;
{Xây dựng hàm}
function KT(a: longint):boolean;
begin
if (a>0) then exit(true) else exit(false);
end;
{Test}
begin
write('Nhap so can kiem tra: ');
readln(a);
if (a<>0) then
if KT(a) then write(a,' la so duong.') else write(a,' la so am.')
else
writeln('a la so 0. Khong phai so am va so duong');
readln;
end.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Anh chị giúp em hết mặt ạ, em đang cần gấp

Vị trí địa lý ảnh hưởng thế nào tới khí hậu nước ta

Viết đoạn văn cảm nhận của em về bài học đường đời đầu tiên của Dế Mèn trong đoạn trích bài học đường đời đầu tiên

Tìm quy luật hộ mik với Cảm Ơn😙

I Complete each sentence so it meams the same as the sentence above 1 He got in through the window . I saw him -> I saw.................................................................... 2 She made herself sick. She had worked very hard -> She had worked so............................................................ 3 The traffic was bad. However, I arrvied on time. -> Though............................................................................... 4 We were late. We missed the first act of the play -> We were so...................................................................... 5 They 're the birds. I fed them this morning. -> They're the birds that..................................................... 6 I don't know many English words -> I wish................................................................................ 7 " Do you have many friends?" -> She asked me................................................................. 8 We don't have a lot of money, so we don't buy a lot of new books -> If we..................................................................................... 9 Learning English is not easy -> It is....................................................................................... 10 "Would you like to come to my birthday party, Sarah?" asked John -> John invited.......................................................................................

Hiiii mod luộc để avatar là hình nhân vật trong bộ phim mà iêm yêu thích nek vẽ anime nữ sung sướng vẽ có tâm tradi line đầy đủ màu nước 60 điểm của toyyyyyyyyyyyyyyyyy

câu văn nào trong văn bản chiếu dời đô đã nói lên sự dân chủ của nhà vua

..........................................

Trình bày cách gọi tên thay thế của một số hidrocacbon có một nhánh C7H8, C8H10 ?

Tại sao các dây dẫn điện đều được cấu tạo bởi phần dẫn điện và phần cách điện ? Hãy vẽ sơ đồ mạch điện gồm một bóng đèn, 1 công tắc,nguồn điện 2 pin và 1 số dây dẫn. dùng mũi tên chỉ chiều dòng điện trong mạch điện đó

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến