Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 18.04.2007, 12:56   #1
ара
Форумчанин
 
Регистрация: 11.04.2007
Сообщений: 106
По умолчанию Помогите!!!

Помогите, пож., может у кого есть исходник для решения это задачи!
Среди заданных целых чисел k, l, m найти пары кратных.
Или дайте советы по написанию
ара вне форума
Старый 19.04.2007, 19:34   #2
RSLoader
_________
Пользователь
 
Аватар для RSLoader
 
Регистрация: 27.03.2007
Сообщений: 69
По умолчанию

Код:
procedure TForm1.Button1Click(Sender: TObject);
var
  k,l,m:Integer;
procedure Krat(a,b:Integer);
begin
  if a mod b = 0 then Label1.Caption:=Label1.Caption+IntToStr(a)+' кратно '+IntToStr(b)+#13;
  if b mod a = 0 then Label1.Caption:=Label1.Caption+IntToStr(b)+' кратно '+IntToStr(a)+#13;
end;
begin
  k:=StrToInt(Edit1.Text);
  l:=StrToInt(Edit2.Text);
  m:=StrToInt(Edit3.Text);
  Krat(k,l);
  Krat(k,m);
  Krat(l,m);
end;

Последний раз редактировалось RSLoader; 23.04.2007 в 08:54.
RSLoader вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Дан двумерный массив случайных чисел. Построить одномерный из исходного, выбрав из него все числа кратные ProWinD Паскаль, Turbo Pascal, PascalABC.NET 2 16.06.2008 20:12
Паскаль. найти все числа кратные трем и посчитать их количество __k1ll3r__ Помощь студентам 6 02.04.2008 16:37
ДАНЫ 4 ЧИСЛА X Y Z W составит программу найти произведение все положительные нечетные числа Woland-itn Паскаль, Turbo Pascal, PascalABC.NET 3 23.03.2008 21:49
Про числа Акашаев Нурлан Паскаль, Turbo Pascal, PascalABC.NET 6 12.12.2007 07:18