dbuzoverova
10.01.2023 15:09

Cрочно надо! буду признателен если напишете на языке pascal.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
motay121
27.08.2020 15:14

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;

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота