cho 3 so nguyen tuy y m,n,k.Kiem tra xem có phân tích m*n*k. là 1 số khác 0 hay k? Nếu có thì in ra "YES" , ngược lại in ra "NO"
2 câu trả lời
uses crt;
var m,n,y:longint;
begin
writeln('nhap so m,n,y =');
readln(m,n,y);
s:=m*n*y;
if s <>0 then
writeln('YES');
else writeln('NO');
readln;
end.
uses crt;
var m,n,k:longint;
begin
clrscr;
write('Nhap m: ');readln(m);
write('Nhap n: ');readln(n);
write('Nhap k: ');readln(k);
if (m*n*k<>0)or(m*n*k<>k) then writeln('YES') else writeln('NO');
readln
end.
Câu hỏi trong lớp
Xem thêm
