Важная информация
Показано с 1 по 3 из 3

Тема: Помогите пожалуйста разобратся с циклами...

  1. #1 Помогите пожалуйста разобратся с циклами... 
    Новичок
    Регистрация
    21.12.2011
    Сообщений
    2
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    "Составьте программу вычисления суммы всех трехзначных чисел, кратных 13."
    Вот как я думал что надо делать:
    CLS
    S=91(или 104)
    For I=13 TO 999 STEP 13
    S=S+I
    NEXT I
    PRINT S
    END

    Но результат вышел другой... Маялся два часа, до сих пор не могу понять где ошибки...
    Можете объяснить где ошибки, и как сделать правильно?
    Ответить с цитированием  
     

  2. #2  
    Профи
    Регистрация
    31.10.2011
    Адрес
    Планета Земля
    Сообщений
    117
    Сказал(а) спасибо
    7
    Поблагодарили 9 раз(а) в 8 сообщениях
    Ошибка в том, что надо было в цикле добавить условие- If i mod 13 = 0 then S=S+i - т.е прибавляем к s еще один s, только если остаток от деления этого числа s на 13 равен 0 (т.е число s делится на 13).
    А в остальном вполне верно.

    P.S Команды написал на обум, но суть примерно понятна - просто не знаю язык Basic, только Pascal.
    Ответить с цитированием  
     

  3. #3  
    Новичок
    Регистрация
    21.12.2011
    Сообщений
    2
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    Спасибо, но все равно с твоей версией не сработало...
    Оказалось все намного проще. Дополнительное условие можно не применять. За S нужно взять 0, а за I первое число которое делится на 13. И тогда он берет все числа как и положено.
    Ответить с цитированием  
     

Информация о теме
Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

Похожие темы

  1. Помогите пожалуйста (срочно)
    от Nastik1993 в разделе QBasic
    Ответов: 5
    Последнее сообщение: 14.11.2012, 10:51
  2. помогите пожалуйста
    от finer в разделе Turbo Pascal
    Ответов: 3
    Последнее сообщение: 14.06.2012, 16:10
  3. Помогите с программой пожалуйста
    от shemekeev в разделе Visual Basic
    Ответов: 3
    Последнее сообщение: 18.04.2012, 18:11
  4. Помогите решить задачи с циклами
    от Дмитрий 1993 в разделе QBasic
    Ответов: 10
    Последнее сообщение: 19.02.2012, 22:51
  5. Ответов: 16
    Последнее сообщение: 24.01.2011, 19:41
Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •