Предмет: Информатика,
автор: paya97
Cрочно надо! Буду признателен если напишете на языке Pascal.
Приложения:

Ответы
Автор ответа:
1
Ответ:
program chocolate;
var
n, m, k, i: Integer;
b: Boolean;
begin
Write ('Введите n, m, k: ');
ReadLn (n, m, k);
b := False;
for i := 1 to n do
if i * m = k then begin
b := True;
Break;
end;
if not b then begin
for i := 1 to m do
if i * n = k then begin
b := True;
Break;
end;
end;
if b then
WriteLn ('YES')
else
WriteLn ('NO');
ReadLn;
Интересные вопросы
Предмет: Математика,
автор: nikitamchita
Предмет: Алгебра,
автор: kakizacem75
Предмет: Литература,
автор: vojcexovskayaolga8
Предмет: Математика,
автор: блабла1206
Предмет: Математика,
автор: Аноним