Помощник
|
Помогите с задачами Pascal |
asskra
|
Сообщение
#1
|
||
|
|
||
|
|||
robokop |
22.12.2010, 22:26;
Ответить: robokop
Сообщение
#2
|
|
Приветствую! Задачи то легкие, какой срок?
-------------------- |
|
|
1807 |
22.12.2010, 22:28;
Ответить: 1807
Сообщение
#3
|
|
хоть показали бы что сделали уже, мы там помогли бы )
задачи то для первого курса =)) Сообщение отредактировал 1807 - 22.12.2010, 22:28 -------------------- Помогу с установкой сапы бесплатно ICQ 9886806 |
|
|
asskra
|
Сообщение
#4
|
|
блин, задачи легкие но я полный ноль здесь. Чем быстрее тем лучше, буду притзнателен если сегодня
хоть показали бы что сделали уже, мы там помогли бы ) там 12 за я 10 сделоа осталось 2 задачи то для первого курса =)) возможно не знаю=) Мне это просто нужно для себя -------------------- |
|
|
robokop |
22.12.2010, 22:32;
Ответить: robokop
Сообщение
#5
|
|
вам прям прога нужна или можно просто дать пояснения?
-------------------- |
|
|
slavabog |
22.12.2010, 22:33;
Ответить: slavabog
Сообщение
#6
|
|
Задача № 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
|
|
вам прям прога нужна или можно просто дать пояснения? хм, просто пояснение я наверно должен понять хотя можно и прогу Задача № 2 спасибо еще первую вторая работает спасибо -------------------- |
|
|
slavabog |
22.12.2010, 22:44;
Ответить: slavabog
Сообщение
#8
|
|
|
Задача № 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 |