X   Сообщение сайта
(Сообщение закроется через 3 секунды)



 

Здравствуйте, гость ( Вход | Регистрация )

Открыть тему
Тема закрыта
> Помогите с задачами Pascal
asskra
asskra
Topic Starter сообщение 22.12.2010, 22:23; Ответить: asskra
Сообщение #1


Старожил
******


Группа: Active User
Сообщений: 1194
Регистрация: 1.7.2010
Из: Самара
Поблагодарили: 225 раз
Репутация:   46  


1.Составьте программу вычисления суммы нечетных делителей натурального числа N
2.Составьте программу выясняющую простым или состовным заданное число N

Сообщение отредактировал asskra - 22.12.2010, 22:24


--------------------
0
Вернуться в начало страницы
 
Ответить с цитированием данного сообщения
robokop
robokop
сообщение 22.12.2010, 22:26; Ответить: robokop
Сообщение #2


Участник
***

Группа: User
Сообщений: 113
Регистрация: 17.6.2010
Поблагодарили: 34 раза
Репутация:   11  


Приветствую! Задачи то легкие, какой срок?


--------------------
Вернуться в начало страницы
 
Ответить с цитированием данного сообщения
1807
1807
сообщение 22.12.2010, 22:28; Ответить: 1807
Сообщение #3


Участник
***


Группа: User
Сообщений: 160
Регистрация: 27.8.2010
Поблагодарили: 14 раз
Репутация:   3  


хоть показали бы что сделали уже, мы там помогли бы )
задачи то для первого курса =))

Сообщение отредактировал 1807 - 22.12.2010, 22:28


--------------------
Куплю подписи, дорого
Помогу с установкой сапы бесплатно ICQ 9886806
Вернуться в начало страницы
 
Ответить с цитированием данного сообщения
asskra
asskra
Topic Starter сообщение 22.12.2010, 22:29; Ответить: asskra
Сообщение #4


Старожил
******


Группа: Active User
Сообщений: 1194
Регистрация: 1.7.2010
Из: Самара
Поблагодарили: 225 раз
Репутация:   46  


блин, задачи легкие но я полный ноль здесь. Чем быстрее тем лучше, буду притзнателен если сегодня

(1807 @ 22.12.2010, 21:28) *
хоть показали бы что сделали уже, мы там помогли бы )

там 12 за я 10 сделоа осталось 2

(1807 @ 22.12.2010, 21:28) *
задачи то для первого курса =))

возможно не знаю=) Мне это просто нужно для себя


--------------------
Вернуться в начало страницы
 
Ответить с цитированием данного сообщения
robokop
robokop
сообщение 22.12.2010, 22:32; Ответить: robokop
Сообщение #5


Участник
***

Группа: User
Сообщений: 113
Регистрация: 17.6.2010
Поблагодарили: 34 раза
Репутация:   11  


вам прям прога нужна или можно просто дать пояснения?


--------------------
Вернуться в начало страницы
 
Ответить с цитированием данного сообщения
slavabog
slavabog
сообщение 22.12.2010, 22:33; Ответить: slavabog
Сообщение #6


Бывалый
****


Группа: User
Сообщений: 340
Регистрация: 11.2.2010
Из: Челябинска
Поблагодарили: 84 раза
Репутация:   24  


Задача № 2. Простой способ =)

begin
readln(N);
if N > 3 then
begin
tip := 0;
for i:=2 to N-1 do
begin
if N mod i = 0 then
begin
tip := 1;
break;
end;
end;
end
else
tip := 0;
if tip = 0 then
writeln ('Простое')
else
writeln('Составное');
end.


Сообщение отредактировал slavabog - 22.12.2010, 22:35
Вернуться в начало страницы
 
Ответить с цитированием данного сообщения
asskra
asskra
Topic Starter сообщение 22.12.2010, 22:42; Ответить: asskra
Сообщение #7


Старожил
******


Группа: Active User
Сообщений: 1194
Регистрация: 1.7.2010
Из: Самара
Поблагодарили: 225 раз
Репутация:   46  


(robokop @ 22.12.2010, 21:32) *
вам прям прога нужна или можно просто дать пояснения?

хм, просто пояснение я наверно должен понять
хотя можно и прогу

(slavabog @ 22.12.2010, 21:33) *
Задача № 2

спасибо

еще первую happy.gif
вторая работает спасибо


--------------------
Вернуться в начало страницы
 
Ответить с цитированием данного сообщения
slavabog
slavabog
сообщение 22.12.2010, 22:44; Ответить: slavabog
Сообщение #8


Бывалый
****


Группа: User
Сообщений: 340
Регистрация: 11.2.2010
Из: Челябинска
Поблагодарили: 84 раза
Репутация:   24  


Задача № 1

begin
readln(N);
sum := 0;
for i:=1 to N do
begin
if N mod i = 0 then
begin
  if i mod 2 = 1 then
  sum := sum + i;
end;
end;
writeln(sum);
end.


Замечание модератора:
Эта тема была закрыта автоматически ввиду отсутствия активности в ней на протяжении 100+ дней.
Если Вы считаете ее актуальной и хотите оставить сообщение, то воспользуйтесь кнопкой
или обратитесь к любому из модераторов.


Сообщение отредактировал slavabog - 22.12.2010, 22:44
Вернуться в начало страницы
 
Ответить с цитированием данного сообщения
Открыть тему
Тема закрыта
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0


Свернуть

> Похожие темы

  Тема Ответов Автор Просмотров Последний ответ
Горячая тема (нет новых ответов) Помогите, пожалуйста, моей дочери выжить!
благотворительный топик
30 vitvirtual 3817 19.5.2018, 8:30
автор: vitvirtual
Открытая тема (нет новых ответов) Продвигаю страницу по запросу "Как сделать игру". Помогите советом, пожалуйста
Я секу в теме! Но подать статью угодным поисковикам образом не смо
22 coremission 2216 8.5.2018, 12:33
автор: coremission
Открытая тема (нет новых ответов) Помогите с выбором ноута
20 rokot 920 23.4.2018, 12:09
автор: Room
Горячая тема (нет новых ответов) Тема имеет прикрепленные файлыПомогите с идеями для форума про успех
Спасибо за каждую идею
43 Zoya83 5197 12.4.2018, 11:42
автор: Zoya83
Открытая тема (нет новых ответов) Лендинг или сайт-визитка для ИП? Помогите определиться
6 Yas18 1144 31.3.2018, 20:57
автор: Yas18


 



RSS Текстовая версия Сейчас: 28.5.2018, 3:40
Дизайн