Viết chương trình kiểm tra số nguyên a có phải số tròn chục hay không
2 câu trả lời
program baitap;
uses crt;
var a:longint;
begin
clrscr;
write('Nhap vao a = ');readln(a);
if (a >= 10) and (a <= 90) and (a mod 10 = 0) then
writeln(a,' la so tron chuc')
else writeln(a,' khong phai la so tron chuc');
readln;
end.
program baigiai;
uses crt;
var a:longint;
begin
clrscr;
write('nhap so de kiem tra:');readln(a);
if(a mod 10=0)and(a<100) and(a>=10)then writeln(a,' la so tron chuc')
else writeln(a,' ko phai la so tron chuc');
readln;
end.
