IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> задача на циклы
сообщение
Сообщение #1


Пионер
**

Группа: Пользователи
Сообщений: 50
Пол: Мужской
Реальное имя: Павел

Репутация: -  0  +


Помогите разобраться вот с такой задачей:Дана последовательность целых чисел заканчивающаяся нулем,получить сумму тех чисел последовательности,которые нечетны и отрицательны. нужно организовть три цикла с предусловием, с постусловием и с заданным количеством повторений .
я никак не могу разобраться какие переменные нужно вводить
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
сообщение
Сообщение #2


Пионер
**

Группа: Пользователи
Сообщений: 50
Пол: Мужской
Реальное имя: Павел

Репутация: -  0  +


попытался сделать вот так

program xcvxcv ;
var a,s:integer;
begin
writeln('vv a');
readln(a);
s:=0;
while a<0 do begin if a mod 2 = 0 then a:=a+1 else a:=a+1;
s:=s+a;
end;
writeln('summa ravna a= ');
end.


в этом случае просто нет никакого результата

Сообщение отредактировано: Hunt666 -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
Hunt666   задача на циклы   22.10.2006 18:50
мисс_граффити   а как дана последовательность? массив? или пользов…   22.10.2006 19:52
Hunt666   я так понимаю что массив   22.10.2006 20:02
мисс_граффити   ок. тогда тебе нужно знать размер массива и ввести…   22.10.2006 20:55
Hunt666   я еще не очень разобрался с массивами ты не могла…   22.10.2006 22:00
мисс_граффити   FAQ - Массивы   22.10.2006 23:15
Hunt666   все равно не понятно как мне последовательность за…   27.10.2006 21:42
Hunt666   подскажите хоть как проверить число на четность …   29.10.2006 21:29
volvo   Хотя бы раз зайди в поиск уже и набери "Четно…   29.10.2006 21:37
Hunt666   с четностью разобрался извиняюсь за беспокойство н…   29.10.2006 22:11
мисс_граффити   1. надо считывать элементы ВНУТРИ цикла 2. у тебя …   29.10.2006 22:43
мисс_граффити   что-то ты совсем не то делаешь, про что писал в на…   30.10.2006 19:39
Hunt666   попытался сделать вот так program xcvxcv ; var a…   29.10.2006 23:09
мисс_граффити   сделай то, про что я написала, а потом будем искат…   29.10.2006 23:23
Hunt666   эту строчку я изменил на while a<0 do begin if…   30.10.2006 0:28
Hunt666   Дана последовательность целых чисел заканчивающаяс…   30.10.2006 22:46
мисс_граффити   ну например так (это НЕ массив, а просто последова…   31.10.2006 20:14
Hunt666   спс как напишу всю прогу отпишусь( а ведь было то…   31.10.2006 21:01
Hunt666   для проверки ввел эту прогу так результат= неработ…   12.11.2006 19:20
мисс_граффити   почему? что ты ему задал написать - то и пишет :))…   12.11.2006 20:05
Hunt666   изменил на: program asdfav; var sum,n:integer; be…   12.11.2006 20:16
volvo   Какие данные вводил? Там были отрицательные нечетн…   12.11.2006 20:19
Hunt666   понятно ,не так вводил ,буду разбираться дальше   12.11.2006 20:31
Hunt666   хотя если ввести -11 -5 6 то выдаст результат 22 …   12.11.2006 20:44
volvo   Ну=ка, присоедини-ка сюда свой скриншот, чтобы был…   12.11.2006 20:53
Hunt666   опять не так вводил тока поидее сумма всегда должн…   12.11.2006 21:01
мисс_граффити   не знаю... мне не удалось получить положительную с…   12.11.2006 21:03
Hunt666   извеняюсь в очередной раз сторомозил в sum=sum+n з…   12.11.2006 21:19
мисс_граффити   показывай как делаешь.   12.11.2006 21:54
Hunt666   вот такое вот у меня получилось при попытке сделат…   12.11.2006 22:32
мисс_граффити   а теперь подумай, что ты делаешь.... что у тебя БЫ…   13.11.2006 0:50
Hunt666   исправил на: program post; var sum,n:integer; b…   13.11.2006 1:22
Hunt666   ндя какой то я горе программист все время торможу …   13.11.2006 2:02
Hunt666   вот моя очередная ахинея <program fors; var su…   13.11.2006 2:26
мисс_граффити   вот моя очередная ахинея <program fors; var s…   13.11.2006 6:02
klem4   Hunt666, ты тегами принципиально не пользуешься ? …   13.11.2006 2:31
Hunt666   то что написано исправить не получается, а когда п…   13.11.2006 2:39
Hunt666   все иправил   13.11.2006 4:04
Hunt666   вот что у меня получилось: program CIKL; var sum,…   14.11.2006 22:49


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 29.03.2024 0:13
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name