|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
23.01.2012, 21:18 | #1 |
Пользователь
Регистрация: 23.01.2012
Сообщений: 27
|
Напишите П.л.и.з программу в турбо ПАСКАЛЕ
1)Найдите все четырехзначные числа у которых сумма крайних цифры равна сумме средних цифр а само число делится на 6 и на 27
2)Дано натуральное число. Получите новое приписав к нему такое же число в обратном порядке (например, число 234 , результат 234432) 3)Факторион - такое натуральное число, которое равно сумме факториалов своих цифр. Например 145=1!+4!+5!=1+24+120. Определить является ли введенное трехзначное число факторионом. |
23.01.2012, 21:24 | #2 |
Пользователь
Регистрация: 23.01.2012
Сообщений: 27
|
Ы я решил 1
Program p1;
var n,S1,S2,N23:integer; begin for n:=1000 to 9999 do begin S1 := (n div 1000) + (n mod 10); N23 := (n mod 1000) div 10; S2 := (N23 div 10) + (N23 mod 10); if (S1 = S2) and (n mod 6 = 0) and (n mod 27 = 0) then WriteLn(n); end; ENd. |
23.01.2012, 21:26 | #3 | |
Made In USSR!
Старожил
Регистрация: 01.09.2010
Сообщений: 3,657
|
Цитата:
Код:
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой" |
|
23.01.2012, 21:27 | #4 |
Пользователь
Регистрация: 23.01.2012
Сообщений: 27
|
Спасиб CAT
|
23.01.2012, 21:36 | #5 |
Пользователь
Регистрация: 23.01.2012
Сообщений: 27
|
Народ Напишите плз 3 заадчку
|
23.01.2012, 22:12 | #6 |
Регистрация: 23.01.2012
Сообщений: 4
|
XaHTeP ,ты из какой паралели?
XaHTeP ,ты из какой паралели?
|
23.01.2012, 22:20 | #7 |
Регистрация: 23.01.2012
Сообщений: 4
|
|
23.01.2012, 22:41 | #8 | |
Made In USSR!
Старожил
Регистрация: 01.09.2010
Сообщений: 3,657
|
Цитата:
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой" |
|
25.01.2012, 06:46 | #9 |
Негодник
Форумчанин
Регистрация: 10.11.2009
Сообщений: 880
|
Код:
Если помог, проси поставить минус. Будь оригинален!
Последний раз редактировалось Rin; 25.01.2012 в 06:54. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Здравствуйте Люди у меня трудности с примерамы ( нужно написать программу на турбо паскале) | zombax | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 19.11.2011 15:42 |
помогите пожалуйста написать программу в турбо паскале | koshpar | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 04.05.2009 16:49 |
Напишите программу на паскале - в долгу не останусь | Борзов | Фриланс | 3 | 14.04.2008 16:41 |