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

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

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

> Задачи на Циклы
Mimosa
сообщение 10.05.2007 19:06
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 22
Пол: Женский

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


Здравствуйте!!не могли бы вы мне помочь в решении 2х задач на Паскале.Для меня они нерешаемые!Плиз,помогите все,кто может!заранее очень признательна!
Задача №1
Составить программу нахождения суммы положительных нечетных чисел<100

Задача №2
Составить программу нахождения суммы целых положительных чисел из промежутка от А до В кратных 4.Значение А и В вводятся с клавиатуры!!


Жду ответа!!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
Адель
сообщение 10.05.2007 20:01
Сообщение #2


Иллюзия мира
***

Группа: Пользователи
Сообщений: 180
Пол: Женский

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


букву с цифрой перепутала) вот:
s:=0;
for i:=A to B do
if i mod 4 = 0 then s:=s+i;

 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
Mimosa   Задачи на Циклы   10.05.2007 19:06
мисс_граффити   И зачем дублировать темы?... Удалила старую с непр...   10.05.2007 19:08
Mimosa   Да......я в Паскале новичок....практически ничего ...   10.05.2007 19:11
Адель   типо этого: №1 s:=0; for i:=2 to 98 do if i mod 2=...   10.05.2007 19:52
Mimosa   Спасибки!а ты уверена?про 2ю задачу?там же кра...   10.05.2007 19:56
Адель   букву с цифрой перепутала) вот: s:=0; for i:=A to ...   10.05.2007 20:01
Mimosa   Спасибо огромное!!!думаю они верны...   10.05.2007 20:04
Адель   а как вам? :)   10.05.2007 20:17
Mimosa   Мна кажется,что верны... :) такой неожиданный отве...   10.05.2007 20:23
Адель   s:=0; for i:=1 to 99 do if i mod 2<>0 then s...   10.05.2007 20:27
Mimosa   Шпасиба!!!! :good: Добавлено чере...   10.05.2007 20:30
Адель   это нечетные числа(в данном случае) mod 2 - чет...   10.05.2007 20:35
Mimosa   Добавлено через 13 мин. Сейчас проверяла 2ю зада...   10.05.2007 20:41
Адель   у тебя ошибка в 3 строке :) :lol: ps ты хоть с...   10.05.2007 21:21
Sto   Думаю так будет работать Var A, B, Sum, i : Int...   10.05.2007 21:22
Mimosa   Что же не так?мож подскажете? :rolleyes: Добавлен...   10.05.2007 21:22
Адель   Sto (i > 0) and ((i mod 4) = 0) тоггда уж А про...   10.05.2007 21:37
Mimosa   Где ошибка?я чет не пойму   10.05.2007 21:40
Sto   Адель Использовать abs(i) mod 4 = 0 нельзя. Напри...   10.05.2007 21:44
Mimosa   Еще раз огромый респект!!спасибо огромное...   10.05.2007 21:56
Адель   главное чтобы сама поняла   10.05.2007 21:59
Mimosa   Ага!как начала проверять-стало доходить!...   10.05.2007 22:02


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

 



- Текстовая версия 21.07.2025 2:09
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"