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

Вопрос школьника по предмету Информатика

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

Ответ учителя по предмету Информатика

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.