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

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

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

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

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

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 23.01.2012, 21:18   #1
XaHTeP
Пользователь
 
Регистрация: 23.01.2012
Сообщений: 27
Сообщение Напишите П.л.и.з программу в турбо ПАСКАЛЕ

1)Найдите все четырехзначные числа у которых сумма крайних цифры равна сумме средних цифр а само число делится на 6 и на 27

2)Дано натуральное число. Получите новое приписав к нему такое же число в обратном порядке (например, число 234 , результат 234432)

3)Факторион - такое натуральное число, которое равно сумме факториалов своих цифр. Например 145=1!+4!+5!=1+24+120. Определить является ли введенное трехзначное число факторионом.
XaHTeP вне форума
Старый 23.01.2012, 21:24   #2
XaHTeP
Пользователь
 
Регистрация: 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.
XaHTeP вне форума
Старый 23.01.2012, 21:26   #3
Mad_Cat
Made In USSR!
Старожил
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,657
По умолчанию

Цитата:
Дано натуральное число. Получите новое приписав к нему такое же число в обратном порядке (например, число 234 , результат 234432)
Код:
var n,x:integer; begin Readln(n);X:=n;While X<>0 do begin N:=N*10+X mod 10;X:=X div 10;end;Writeln(n);end.
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой"
Mad_Cat вне форума
Старый 23.01.2012, 21:27   #4
XaHTeP
Пользователь
 
Регистрация: 23.01.2012
Сообщений: 27
По умолчанию

Спасиб CAT
XaHTeP вне форума
Старый 23.01.2012, 21:36   #5
XaHTeP
Пользователь
 
Регистрация: 23.01.2012
Сообщений: 27
По умолчанию

Народ Напишите плз 3 заадчку
XaHTeP вне форума
Старый 23.01.2012, 22:12   #6
madflyzero131
 
Регистрация: 23.01.2012
Сообщений: 4
По умолчанию XaHTeP ,ты из какой паралели?

XaHTeP ,ты из какой паралели?
madflyzero131 вне форума
Старый 23.01.2012, 22:20   #7
madflyzero131
 
Регистрация: 23.01.2012
Сообщений: 4
По умолчанию

Цитата:
Сообщение от Mad_Cat Посмотреть сообщение
Код:
var n,x:integer; begin Readln(n);X:=n;While X<>0 do begin N:=N*10+X mod 10;X:=X div 10;end;Writeln(n);end.
тут лучше взять LONGINT
madflyzero131 вне форума
Старый 23.01.2012, 22:41   #8
Mad_Cat
Made In USSR!
Старожил
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,657
По умолчанию

Цитата:
тут лучше взять LONGINT
да хоть INT64 берите
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой"
Mad_Cat вне форума
Старый 25.01.2012, 06:46   #9
Rin
Негодник
Форумчанин
 
Аватар для Rin
 
Регистрация: 10.11.2009
Сообщений: 880
По умолчанию

Код:
var ch, i , sum,k:integer;

function Fact( num : Integer) : Integer;
begin
if (num<=0) then
Fact := 1
else
Fact := num*Fact(num-1);
end;

begin
sum:=0;
readln(ch);
i:=ch mod 10;
sum:=sum+fact(i);
i:=ch mod 100;
i:=i div 10;
sum:=sum+fact(i);
i:=ch div 100;
sum:=sum+fact(i);
if sum=ch then writeln('yes') else writeln('no');
readln;
end.
Если помог, проси поставить минус. Будь оригинален!

Последний раз редактировалось Rin; 25.01.2012 в 06:54.
Rin вне форума
Закрытая тема


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Здравствуйте Люди у меня трудности с примерамы ( нужно написать программу на турбо паскале) 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