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 ạ :((
2 câu trả lời
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
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.
