02.05.2010, 15:30 | #2 (ссылка) |
Новичок
Регистрация: 10.07.2009
Сообщений: 227
Репутация: 17
|
№1
Код:
program kk; var n,k:integer; begin read(n); write('deliteli='); for k:=1 to n do begin if n mod k=0 then write(k,' '); end; end. ---------- Добавлено в 14:30 ---------- Предыдущее сообщение было написано в 14:00 ---------- №2 Код:
program hh; var a:integer; j,d,m,g,f,h,k,n,i:integer; begin a:=1000; repeat begin n:=a div 100; k:=n div 10; m:=n mod 10; h:=a mod 100; g:=h div 10; f:=h mod 10; end; j:=g+f; d:=m*k; if j=d then write(a,' '); inc(a) until a=9999; end. |
Ads | |
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1) | |
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Паскаль, Help( | Ivashka | Программирование | 3 | 05.02.2011 05:17 |
задача на С++ | Dmitrii-ekt | Программирование | 2 | 24.12.2010 15:20 |
Паскаль =( | Гульназ | Программирование | 0 | 22.12.2010 20:44 |
Паскаль ЗАДАЧА!!!! | Мирзефер | Программирование | 0 | 19.12.2010 19:38 |
Задача по Программирование | c47 | Программирование | 1 | 28.09.2010 16:21 |
Паскаль | sanyacech | Программирование | 11 | 23.03.2010 18:52 |
Паскаль, задача по одномерным массивам | ZONDO | Программирование | 2 | 20.03.2010 11:24 |
Задача | Анюта01 | Программирование | 9 | 19.03.2010 20:43 |
Задача по геометрии | серый кот | Общение по интересам | 3 | 09.03.2010 23:08 |
Задача по рекурсии | darsinella | Программирование | 0 | 08.12.2009 21:28 |
Практическая Задача. | Temp | Windows XP | 10 | 01.11.2009 00:05 |
задача на СИ в чём ошибка??(( | Kamilla Gates | Программирование | 1 | 02.08.2009 15:40 |