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

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

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

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

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

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

Найти наименьший делитель отличный от нуля для заданного числа N
Код:
 var
  p,n:integer;
begin
  N:= strtoint(edit1.Text);
  if (n mod 2)=0 then
    n:=n-1
    else
    n:=n-2;
    p:=1;
  while n>0 do
    begin
      p:=p*n;
      n:=n-2;
    end;
 label1.Caption:=inttostr(p);

Последний раз редактировалось MaTBeu; 24.05.2009 в 18:18.
Grisha248 вне форума
Старый 24.05.2009, 16:26   #2
Chudo4258
Форумчанин
 
Аватар для Chudo4258
 
Регистрация: 19.02.2009
Сообщений: 622
По умолчанию

Решение:::::
Вложения
Тип файла: rar 12.rar (166.3 Кб, 23 просмотров)
Жми на весы!!!
Chudo4258 вне форума
Старый 24.05.2009, 16:41   #3
Grisha248
Пользователь
 
Регистрация: 21.05.2009
Сообщений: 15
По умолчанию

Спасибо)))))
Grisha248 вне форума
Закрытая тема


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Подскажите с кодом процедуры ButtonClick KARUSHEV Помощь студентам 3 23.03.2009 14:01
Подскажите что не так... SynonymMixer Работа с сетью в Delphi 10 26.01.2009 23:49
Что я не так сделал в игре???Подскажите. spamer Общие вопросы Delphi 1 06.01.2009 23:04
Подскажите что не так в программе? Toxass Общие вопросы Delphi 9 20.12.2008 10:11
Подскажите что тут не так!? dcl Общие вопросы Delphi 5 28.03.2007 08:15