Question

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

Answer 1

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.  

Answer 2

Для того чтобы определить, делится ли целое число на 5 и на 7, мы должны проверить, является ли остаток от деления этого числа на 5 равным нулю и остаток от деления на 7 также равен нулю.

В Lazarus можно использовать оператор модуля "%" для получения остатка от деления числа на другое число.

Приведу пример кода на языке Pascal (Lazarus):

program CheckDivisibility;

var
  number: integer;

begin
  writeln('Введите целое число:');
  readln(number);

if (number mod 5 = 0) and (number mod 7 = 0) then
    writeln('Данное число делится на 5 и на 7')
  else
    writeln('Данное число не делится на 5 и на 7');

readln;
end.

В этом примере мы сначала запрашиваем у пользователя ввод целого числа. Затем мы используем оператор модуля для проверки остатков от деления на 5 и на 7. Если оба остатка равны нулю, то выводится сообщение "Данное число делится на 5 и на 7". В противном случае выводится сообщение "Данное число не делится на 5 и на 7".