Nếu có sai thì bạn nói mình nhé.
=========================
Bẻ nhiều lần.
program Hello;
uses crt;
var n,m,k,i,j:integer;
begin
clrscr;
write('n = '); readln(n);
write('m = '); readln(m);
write('k = '); readln(k);
for i:= 1 to n do
for j:= 1 to m do
if i*j = k then
k:= -1;
if k= -1 then
write('YES')
else
write('NO');
readln;
end.
===============================
Bẻ một lần.
program Hello;
uses crt;
var n,m,k,i:integer;
begin
clrscr;
write('n = '); readln(n);
write('m = '); readln(m);
write('k = '); readln(k);
for i:= 1 to n do
if i*m = k then
k:= -1;
for i:= 1 to m do
if i*n = k then
k:= -1;
if k= -1 then
write('YES')
else
write('NO');
readln;
end.
==================
Hai hình đầu bẻ nhiều lần.
Hai hình sau bẻ một lần.