Làm nhanh giúp mình ạ. Bt:Viết chtr nhập 1 số thực, hãy cho biết số đó có là bội số của 4 và 5 hoặc số đó có lớn hơn 100 hay không?
2 câu trả lời
program phuongt;
uses crt;
var a: real;
begin
clrscr;
write('Nhap a = '); readln(a);
if (a mod 4 = 0) and (a mod 5 = 0) then write(a, ' la boi cua 4 va 5') else
write(a, ' khong la boi cua 4 va 5');
if a>100 then write(a, ' lon hon 100') else write(a, ' be hon 100');
readln
end.
mình làm là số nguyên nha! còn số thực thì không biết
program kiemtra;
uses crt;
var n:integer;
begin
clrscr;
write('Nhap so nguyen: '); readln(n);
if n mod 20=0 then writeln('la boi cua 4 va 5')
else writeln('khong phai la boi cua 4 va 5');
if n>100 then write('La so lon hon 100')
else write('Khong lon hon 100');
readln
end.
