Bài 1: nhập 2 số nguyên a và b. hãy đưa ra màn hình kết quả của : - a div b - a mod b Bài 2: nhập số nguyên a. Đưa ra màn hình thông báo số đó là số nguyên dương hay không? Bài 3: nhập số nguyên n. Đưa ra màn hình thông báo số đó có chia hết cho 3

tranthuyvi2004

2 năm trước

Bài 1: nhập 2 số nguyên a và b. hãy đưa ra màn hình kết quả của : - a div b - a mod b Bài 2: nhập số nguyên a. Đưa ra màn hình thông báo số đó là số nguyên dương hay không? Bài 3: nhập số nguyên n. Đưa ra màn hình thông báo số đó có chia hết cho 3 và 5 hay không? Mọi người giúp em với ạ. Mai em ktra rồi ạ :((

Loga Sinh Học lớp 12

0 lượt thích 26 xem

1 trả lời

Thích Trả lời

doremonduong3

Bài 1:

program minhslav

uses crt

var a,b,n,c:real

begin

clrscr;

write('Nhap so a: ');readln(a);

write('Nhap so b: ');readln(b);

n:=a div b

c:=a mod b

write(a,b);

Bài 2:

uses crt;

var a :integer;

begin

clrscr;

write('Nhap a: ');readln(a);

if a>0 then write('Day la so duong');

else write('Khong phai so nguyen duong');

readln;

end.

Bài 3:

uses crt;

var a :real;

begin

CLRSCR;

write('Nhap a: ');readln(a);

if (a mod 3=0) and (a mod 5=0) then write('YES);

else write('No);

readln;

end.

XONG RỒI XIN CTLHN nha bạn :33

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

Namnguyen2002

Bài 1:

Uses crt;
Var a, b: integer;
Begin
Clrscr;
Write('Nhap a va b: '); readln(a, b);
Writeln('Ket qua ',a,' div ',b,' la: ',a div b);
Writeln('Ket qua ',a,' mod ',b,' la: ',a mod b);
Readln
end.

Bài 2:

Uses crt;
Var a: integer;
Begin
Clrscr;
Write('Nhap so nguyen a: '); readln(a);
If a>=0 then writeln(a,' la so nguyen duong')
Else writeln(a,' khong la so nguyen duong');
Readln
end.

Bài 3:

Uses crt;
Var n: integer;
Begin
Clrscr;
Write('Nhap n = '); readln(n);
If (n mod 3 = 0) and (n mod 5 = 0) then writeln(n, ' chia het cho 3 va 5');
Readln
end.

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

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

một vật có khối lượng 5,9kg , D=900kg/m khối vật đó nổi hay chìm khi thả vào trong a) dầu b) nước biết d nước=10000 niuton/m khối ;d dầu=8000n/m khối

Tuổi chị và tuổi em cộng lại được 36 tuổi, Em kém chị 8 tuổi, hỏi chị bao nhiêu tuổi, em bao nhiêu tuổi

mình cần gấp giúp mình vs ạ cảm ơn

Vẽ 2 tia đối nhau Ox và Oy a, Lấy A thuộc Ox , B thuộc Oy . Viết tên các tia trùng với tia Oy b. Hai tia Ax và Oy có đó nhau ko ? Vì sao ? c, Tia Hx cắt đường thẳng BF tại K ko nằm giữa 2 điểm B vàF

16-x^2-64+y^2 Giúp mình nha ^_^

Cần giải câu 4 ạ. Mai là em kiểm rồi huhu

viết đoan van nghị luan ( 200 chữ) trình baỳ suy nghĩ cua anh chị về cau nói: '' sống la phaỉ có ước mơ''

đoán xem ảnh đại diện của mik là truyện j Vẽ anime phù thủy nha

Các bn lm hộ mk bà này với ak !!

Vì sao Long Quân cho nghĩa quân Lam Sơn mượn gươm thần?

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