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

Question

Информатика

Агафоника

14 июля, 19:34

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

+4

Ответы (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.