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



 

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

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


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


Группа: Active User
Сообщений: 1180
Регистрация: 1.7.2010
Из: Самара
Поблагодарили: 221 раз
Репутация:   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
Сообщений: 1180
Регистрация: 1.7.2010
Из: Самара
Поблагодарили: 221 раз
Репутация:   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
Сообщений: 1180
Регистрация: 1.7.2010
Из: Самара
Поблагодарили: 221 раз
Репутация:   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.


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


Свернуть

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

  Тема Ответов Автор Просмотров Последний ответ
Открытая тема (нет новых ответов) Помогите выбрать программу
Помогите выбрать программу
11 impak 1344 11.12.2017, 13:11
автор: Mikki
Открытая тема (нет новых ответов) Помогите найти плагин на WP
Отзывы с профилей соц сетей
1 SEOMR 441 30.11.2017, 7:18
автор: Nell
Открытая тема (нет новых ответов) Помогите найти проблему
Долгий ответ сервера
6 maxim1249 693 29.11.2017, 17:27
автор: genjnat
Открытая тема (нет новых ответов) Помогите оценить новотник. Плиз
1 Alex-777 526 29.11.2017, 7:18
автор: grumdas
Открытая тема (нет новых ответов) Нужна помощь с задачами по SEO
Звучит так себе конечно, однако очень нужна ваша помощь!!!
10 another_way 1522 25.11.2017, 13:35
автор: Bel_Ami


 



RSS Текстовая версия Сейчас: 16.12.2017, 0:14
Дизайн