Задачи на Циклы Опции

[Mimosa]

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

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


Жду ответа!!

[мисс_граффити]

И зачем дублировать темы?...
Удалила старую с неправильным названием.

[Mimosa]

Да......я в Паскале новичок....практически ничего не понимаю..хочу понять,не получается решать задачи такого типа!!

[Адель]

типо этого:
№1

s:=0;
for i:=2 to 98 do
if i mod 2=0 then s:=s+i;

№2

s:=0;
for i:=A to B do
if (i mod 43)*10 = 0  then s:=s+i; 

зы : могу ошибаться

не надо в 2 х темах сразу писать

Сообщение отредактировано: Адель - 10.05.2007 23:54

[Mimosa]

Спасибки!а ты уверена?про 2ю задачу?там же кратных 4!!

[Адель]

букву с цифрой перепутала) вот:

s:=0;
for i:=A to B do
if i mod 4 = 0  then s:=s+i; 

[Mimosa]

Спасибо огромное!!!думаю они верны!как вам кажется?

Сообщение отредактировано: Mimosa - 11.05.2007 0:21

[Адель]

а как вам?

[Mimosa]

Мна кажется,что верны... такой неожиданный ответ а почему в первой задаче до 98?вроде же нечетные

[Адель]

s:=0;
for i:=1 to 99 do
if i mod 2<>0 then s:=s+i;

мдя.

Сообщение отредактировано: Адель - 11.05.2007 0:29

[Mimosa]

Шпасиба!!!!

Добавлено через 2 мин.
2<>0 эт что?растолкуйте,пожалуйста

[Адель]

2<>0 эт что?растолкуйте,пожалуйста

это нечетные числа(в данном случае)
mod 2 - четные

[Mimosa]

Добавлено через 13 мин.
Сейчас проверяла 2ю задачу,чет она не проходит.......

Сообщение отредактировано: Mimosa - 11.05.2007 0:56

[Адель]

у тебя ошибка в 3 строке

ps ты хоть скажи, что именно неполучается

[Sto]

Думаю так будет работать

Var
   A, B, Sum, i : Integer;
Begin
   Write('Please, enter A -> ');
   ReadLn(A);
   Write('Please, enter B -> ');
   ReadLn(B);
   Sum := 0;

   For i := A To B Do
   Begin
      If (i > 0) and ((i mod 4) = 0) Then
      Sum := Sum + i;
   End;
   WriteLn('Sum = ',Sum);
   ReadLn;
End.

Главное чтобы A было меньше B.

[Mimosa]

Что же не так?мож подскажете?

Добавлено через 13 мин.
Спасибо тебе,Sto!!прошла задача!!!

[Адель]

Sto

(i > 0) and ((i mod 4) = 0)

тоггда уж А проверять на >0

Mimosa, см 14 пост

Сообщение отредактировано: Адель - 11.05.2007 1:50

[Mimosa]

Где ошибка?я чет не пойму

[Sto]

Адель

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

Использовать abs(i) mod 4 = 0 нельзя.
Например будет задана область [-8;8]. Для этой области целые положительные числа кратные 4-м, будут 4 и 8.
Тоесть Сумма равна 12. А программа посчитает 24.

Mimosa незачто!!

Сообщение отредактировано: Sto - 11.05.2007 1:45

[Mimosa]

Еще раз огромый респект!!спасибо огромное!!