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

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

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

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

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

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 16.03.2012, 11:22   #1
Paster Fob
Форумчанин
 
Аватар для Paster Fob
 
Регистрация: 06.02.2011
Сообщений: 105
По умолчанию Нужно подсказать

Т.к. я учусь паскалю самостоятельно,за меня решать не надо задачу.Просто подсказку дайте как это сделать.
Paster Fob вне форума
Старый 16.03.2012, 13:05   #2
Plague
Забанен
Форумчанин Подтвердите свой е-майл
 
Аватар для Plague
 
Регистрация: 01.11.2006
Сообщений: 420
По умолчанию

примерно так:
Код:
var i,n:integer;
begin
  readln(n);
   i:=2;
  repeat
    if n mod i=0 then 
      begin
        writeln(i);
        n:=n div i;
      end
    else i:=i+1;
  until n<i; 
end.
Если ничто другое не помогает, прочтите, наконец, инструкцию! Аксиома Кана
Plague вне форума
Старый 16.03.2012, 13:10   #3
DiemonStar
Старожил
 
Регистрация: 08.02.2012
Сообщений: 2,173
По умолчанию

1) запускается цикл до тех пор, пока число не станет = 1
2) в цикле проверка на остаток при делении на очередной множитель:
- есть остаток, значит переход на следующее число в цикле
- нет остатка, значит на экран и результат от деления числа на очередную проверку с этим множителем.
Правильно поставленная задача - три четверти решения.
DiemonStar вне форума
Старый 16.03.2012, 18:07   #4
Paster Fob
Форумчанин
 
Аватар для Paster Fob
 
Регистрация: 06.02.2011
Сообщений: 105
По умолчанию

Цитата:
Сообщение от Plague Посмотреть сообщение
примерно так:
Код:
var i,n:integer;
begin
  readln(n);
   i:=2;
  repeat
    if n mod i=0 then 
      begin
        writeln(i);
        n:=n div i;
      end
    else i:=i+1;
  until n<i; 
end.
спасибо конечно,но я просил не решать за меня.

Цитата:
Сообщение от DiemonStar Посмотреть сообщение
1) запускается цикл до тех пор, пока число не станет = 1
2) в цикле проверка на остаток при делении на очередной множитель:
- есть остаток, значит переход на следующее число в цикле
- нет остатка, значит на экран и результат от деления числа на очередную проверку с этим множителем.
спасибо за подсказку.
Интересно,это вы сами додумываетесь или на занятиях разбираете подобные задачи?

Последний раз редактировалось Stilet; 07.05.2012 в 21:18.
Paster Fob вне форума
Старый 16.03.2012, 18:26   #5
Hacker19_90
Delphi Warrior
Старожил
 
Аватар для Hacker19_90
 
Регистрация: 15.08.2008
Сообщений: 2,502
По умолчанию

Цитата:
Интересно,это вы сами додумываетесь или на занятиях разбираете подобные задачи?
Тут на форуме уже так раз 100500 обсуждалось!
Mess with the best, die like the rest. (с) Hackers
Лабораторные, курсовые на Delphi\Pascal\C++
ya.flex-freelance@yandex.ru Icq - 636-954-303
Hacker19_90 вне форума
Старый 16.03.2012, 19:50   #6
whatever
a.k.a. Skull
Форумчанин
 
Регистрация: 17.11.2009
Сообщений: 963
По умолчанию

По-моему это в пятом классе проходили, тема "нахождение наибольшего общего множителя"
Все тривиальное просто
whatever вне форума
Старый 16.03.2012, 20:26   #7
Paster Fob
Форумчанин
 
Аватар для Paster Fob
 
Регистрация: 06.02.2011
Сообщений: 105
По умолчанию

Цитата:
Сообщение от whatever Посмотреть сообщение
По-моему это в пятом классе проходили, тема "нахождение наибольшего общего множителя"
ну если ты только закончил школу,то конечно для тебя всё просто.А я 13 лет назад,я не помню ничего что дальше 5-го класса идёт.
Paster Fob вне форума
Старый 16.03.2012, 20:57   #8
Poma][a
Новичок
Джуниор
 
Регистрация: 11.10.2011
Сообщений: 3,882
По умолчанию

Цитата:
примерно так:
введи 16
10 букаф
Poma][a вне форума
Старый 16.03.2012, 21:27   #9
whatever
a.k.a. Skull
Форумчанин
 
Регистрация: 17.11.2009
Сообщений: 963
По умолчанию

Цитата:
Сообщение от Paster Fob Посмотреть сообщение
ну если ты только закончил школу,то конечно для тебя всё просто.А я 13 лет назад,я не помню ничего что дальше 5-го класса идёт.
Подкалывать изволите? Может ты и таблицу умножения не помнишь? И вообще, по логике твоих сообщений не скажешь, что ты школу 13 лет назад закончил. Кстати, сам себе противоречишь:
Цитата:
А я 13 лет назад,я не помню ничего что дальше 5-го класса идёт.
Это как раз и было в пятом классе, ввиду некоторых обстоятельств помню совершенно точно. Так что слив не засчитан.
Все тривиальное просто
whatever вне форума
Старый 16.03.2012, 23:24   #10
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Цитата:
Сообщение от Poma][a Посмотреть сообщение
введи 16
ну ввёл. и что?...
к чему эта реплика? Да и не всегда краткость - сестра таланта!

Цитата:
Сообщение от whatever Посмотреть сообщение
Это как раз и было в пятом классе, ввиду некоторых обстоятельств помню совершенно точно.
угу. подтверждаю. пятый класс.

Последний раз редактировалось Serge_Bliznykov; 16.03.2012 в 23:31.
Serge_Bliznykov вне форума
Закрытая тема


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
КТО МОЖЕТ ПОДСКАЗАТЬ??? Demon380 PHP 2 10.03.2012 12:13
Прошу помочь, подсказать. semushka Свободное общение 2 11.01.2012 10:48
Подсказать в C++ с указателями Сайын Помощь студентам 3 23.05.2011 13:45
распознать язык и подсказать программу mcxruschow Помощь студентам 5 26.05.2010 00:09
прошу подсказать в создании отчета Ulan Microsoft Office Access 6 12.07.2008 00:51