|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
06.11.2012, 23:02 | #1 |
Пользователь
Регистрация: 05.09.2012
Сообщений: 56
|
pascal
uses crt;
var n,i,t,p:integer; begin readln(n); for i:=2 to n do begin t:=i; p:=1; repeat p:=p*(t mod 10); t:=t div 10; until t=0; if (p<>0)and(i mod p=0) then write(i,' '); end; readln; end. эта программа выводит все числа от 2 до n цифры которых деляться на это число нужно чтоб программа работала так же но только через функцию помогите пожалуйста |
06.11.2012, 23:31 | #2 |
МегаМодератор
СуперМодератор
Регистрация: 09.11.2010
Сообщений: 7,342
|
Хм, программа делает не то, что написали Вы, или Вы так плохо сформулировали условие
Оформляйте код кнопкой #. Код:
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Pascal: Массивы, подпрограммы, текст на языке Pascal | WarriorCow | Помощь студентам | 4 | 22.02.2012 15:28 |
Программы в Pascal, среда pascal ABC. Лабораторные работы | Одинокая Волчица | Фриланс | 8 | 10.02.2012 20:09 |
Неудобство ABC Pascal и глюк Borland Pascal | proser93 | Помощь студентам | 0 | 19.11.2011 19:01 |
Turbo Pascal и Free Pascal , в чем разница? | antoxann | Паскаль, Turbo Pascal, PascalABC.NET | 31 | 09.11.2011 07:52 |
а free pascal не читает задачи которые написаны на turbo pascal? | demonara | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 25.05.2009 16:28 |