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

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


Жду ответа!!

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

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

типо этого:
№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 х темах сразу писать

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

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

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

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

а как вам?

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

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

мдя.

Шпасиба!!!!

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

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

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

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

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

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

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.

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

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

Sto

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

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

Mimosa, см 14 пост

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

Адель

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

Mimosa незачто!!

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

главное чтобы сама поняла

Ага!как начала проверять-стало доходить!! Спасибо тебе тоже!! большое