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

Question

Информатика

Антоныч

13 ноября, 08:05

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

+1

Ответы (1)

Знаете ответ?

Галатея · 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.