сравнение чисел

17.01.2013, 10:29. **Показов** 1287. **Ответов** 1

Author24 — интернет-сервис помощи студентам

помогите решить задачи,

даны два нвтуральных числа. напечатать все числа лежащие в диапазоне между заданными чилами, среди делителей которых есть 5 7 11

@OverDozero · 17.01.2013, 14:30

Делит без остатка на 5,7,11.Если я верно понял задание.

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
m,n,i:integer;
begin
m:=StrToInt(Edit1.Text);
n:=StrToInt(Edit2.Text);
for i:=m to n do
 begin
  if ((i mod 5=0) or (i mod 7=0) or (i mod 11=0)) then
   Label3.Caption:=Label3.Caption+IntToStr(i)+' ,';
 end;
end;

iamzero54321
		1
	сравнение чисел 17.01.2013, 10:29. Показов 1287. Ответов 1 Метки нет (Все метки) помогите решить задачи, даны два нвтуральных числа. напечатать все числа лежащие в диапазоне между заданными чилами, среди делителей которых есть 5 7 11

	17.01.2013, 14:30

Опции темы

сравнение чисел

Решение