Дано целое число. верно ли, что оно делится на 5 и на 7? решение для lazarus

298

476

Посмотреть ответы 2

Ответы на вопрос:

Uuuuuu2006

Информатика

4,5(23 оценок)

Procedure tform1.button1click(sender: tobject); var n: integer; begin n: =strtoint(edit1.text); if (n mod 5 = 0) and (n mod 7 = 0) then edit2.text: ='это верно, число делится на 5 и на 7' else edit2.text: ='число не делится на 5 и на 7'; end; end.