viết chương trình nhập 3 số nguyên dương m,n,k (m { "@context": "https://schema.org", "@type": "QAPage", "mainEntity": { "@type": "Question", "name": " viết chương trình nhập 3 số nguyên dương m,n,k (m
0 bình luận về “viết chương trình nhập 3 số nguyên dương m,n,k (m<n<k) kiểm tra xem tích m,n,k có là số có 2 chữ số”
uses crt; var m, n, k: longint; begin clrscr; write(‘Nhap so m: ‘); readln(m); write(‘Nhap so n: ‘); readln(n); write(‘Nhap so k: ‘); readln(k); if ((m*n*k >= 10) and (m*n*k <=99)) then write(‘Tich cua ba so tren la so co hai chu so.’) else write(‘Tich cua ba so tren khong phai la so co hai chu so.’); readln; end.
uses crt;
var m, n, k: longint;
begin
clrscr;
write(‘Nhap so m: ‘);
readln(m);
write(‘Nhap so n: ‘);
readln(n);
write(‘Nhap so k: ‘);
readln(k);
if ((m*n*k >= 10) and (m*n*k <=99)) then write(‘Tich cua ba so tren la so co hai chu so.’)
else write(‘Tich cua ba so tren khong phai la so co hai chu so.’);
readln;
end.
program ctpt;
uses crt;
var m, n, k, t: integer;
begin
clrscr;
write(‘Nhap m = ‘); readln(m);
write(‘Nhap n = ‘); readln(n);
write(‘Nhap k = ‘); readln(k);
if (m<n) and (n<k) then
begin
t:=m*n*k;
if t>99 or t<9 then write(‘Tich cua 3 so m, n, k khong phai so co 2 chu so’) else
write(‘Tich cua 3 so m, n, k la so co 2 chu so’);
end
else write(‘3 so nguyen duong do phai thoa man: m < n <k’);
readln
end.