Ответы
Ответ дал:
0
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.
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.
Вас заинтересует
1 год назад
1 год назад
5 лет назад
8 лет назад
8 лет назад
8 лет назад