Версия для печати темы

Автор: Mimosa 10.05.2007 23:06

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

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


Жду ответа!!

Автор: мисс_граффити 10.05.2007 23:08

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

Автор: Mimosa 10.05.2007 23:11

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

Автор: Адель 10.05.2007 23:52

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

Автор: Mimosa 10.05.2007 23:56

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

Автор: Адель 11.05.2007 0:01

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

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

Автор: Mimosa 11.05.2007 0:04

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

Автор: Адель 11.05.2007 0:17

а как вам?

Автор: Mimosa 11.05.2007 0:23

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

Автор: Адель 11.05.2007 0:27

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

мдя.

Автор: Mimosa 11.05.2007 0:30

Шпасиба!!!!

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

Автор: Адель 11.05.2007 0:35

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

Автор: Mimosa 11.05.2007 0:41

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

Автор: Адель 11.05.2007 1:21

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

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

Автор: Sto 11.05.2007 1:22

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

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 11.05.2007 1:22

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

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

Автор: Адель 11.05.2007 1:37

Sto

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

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

Mimosa, см 14 пост

Автор: Mimosa 11.05.2007 1:40

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

Автор: Sto 11.05.2007 1:44

Адель

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

Mimosa незачто!!

Автор: Mimosa 11.05.2007 1:56

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

Автор: Адель 11.05.2007 1:59

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

Автор: Mimosa 11.05.2007 2:02

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