Помощник
 |
|
|
|
|
Сообщение сайта
|
 Помогите с задачами Pascal |
asskra
|
Сообщение
#1
|
||
 Старожил  
 Группа: Active User Сообщений: 1198 Регистрация: 1.7.2010 Из: Самара Поблагодарили: 226 раз Репутация:  46 
 |
|
||
 |
|
||
|
robokop
|
 22.12.2010, 22:26;
Ответить: robokop
Сообщение
#2
|
|
Участник Группа: User Сообщений: 113 Регистрация: 17.6.2010 Поблагодарили: 34 раза Репутация: 11
|
Приветствую! Задачи то легкие, какой срок?
-------------------- |
|
|
|
1807
|
 22.12.2010, 22:28;
Ответить: 1807
Сообщение
#3
|
 Участник 
 Группа: User Сообщений: 160 Регистрация: 27.8.2010 Поблагодарили: 14 раз Репутация: 3
|
хоть показали бы что сделали уже, мы там помогли бы )
задачи то для первого курса =)) Сообщение отредактировал 1807 - 22.12.2010, 22:28 -------------------- |
|
|
|
|
asskra
|
Сообщение
#4
|
|
Старожил
Группа: Active User Сообщений: 1198 Регистрация: 1.7.2010 Из: Самара Поблагодарили: 226 раз Репутация: 46
|
блин, задачи легкие но я полный ноль здесь. Чем быстрее тем лучше, буду притзнателен если сегодня
(1807 @ 22.12.2010, 21:28)  хоть показали бы что сделали уже, мы там помогли бы ) там 12 за я 10 сделоа осталось 2 (1807 @ 22.12.2010, 21:28) задачи то для первого курса =)) возможно не знаю=) Мне это просто нужно для себя -------------------- |
|
|
|
|
robokop
|
22.12.2010, 22:32;
Ответить: robokop
Сообщение
#5
|
|
Участник Группа: User Сообщений: 113 Регистрация: 17.6.2010 Поблагодарили: 34 раза Репутация: 11
|
вам прям прога нужна или можно просто дать пояснения?
-------------------- |
|
|
|
|
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
|
Сообщение
#7
|
|
Старожил
Группа: Active User Сообщений: 1198 Регистрация: 1.7.2010 Из: Самара Поблагодарили: 226 раз Репутация: 46
|
(robokop @ 22.12.2010, 21:32) вам прям прога нужна или можно просто дать пояснения? хм, просто пояснение я наверно должен понять хотя можно и прогу (slavabog @ 22.12.2010, 21:33) Задача № 2 спасибо еще первую  вторая работает спасибо -------------------- |
|
|
|
|
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 |
|
|
|
|
|
|
|
Похожие темы
| Тема | Ответов | Автор | Просмотров | Последний ответ | |
|---|---|---|---|---|---|
 |
Помогите вспомнить рекламного бота Телеграм для обмена рекламой | 0 | Mixatraider | 725 | 21.2.2024, 23:42 автор: Mixatraider |
|
Помогите рещить проблему с монитором. Почему низкое разрешение при подключении монитора через displayport? |
0 | Levels | 1701 | 11.12.2020, 0:48 автор: Levels |
|
Помогите кто нибудь получить партнерку Росбанк! | 7 | heisenberg_mw | 2340 | 7.8.2020, 9:28 автор: heisenberg_mw |
|
Помогите найти тему пожалуйста | 7 | virtas | 12461 | 24.7.2020, 17:02 автор: -JamesSmips- |
|
Помогите с поиском доноров | 3 | tehno_music | 3351 | 4.11.2019, 17:15 автор: goblin78 |
|
Текстовая версия | Сейчас: 18.4.2024, 10:21 |
