Question

Nhập 3 số nguyên dương m,n,k(m<n<k) kiểm tra xem tích mnk có là số có 2 chữ số

Answer 1

uses crt;
var m,n,k,s:integer;
begin
clrscr;
repeat
write('Nhap m='); readln(m);
write('Nhap n='); readln(n);
write('Nhap k='); readln(k);
until (m<n) and (n<k) and (m>0) and (n>0) and (k>0);
s:=m*n*k;
if s>=10 then writeln('Tich la so co 2 chu so')

else writeln('Tich khong la so co 2 chu so');

readln;

end.