• найти сумму чисел от 50 до 100, кратных 2 и 3.
    турбо паскаль!

Ответы 8

  • я не понял
    • Автор:

      cloudessi
    • 5 лет назад
    • 0
  • вот ниже понял
    • Автор:

      braxton
    • 5 лет назад
    • 0
  • а тебя нет
    • Автор:

      jakobhnb4
    • 5 лет назад
    • 0
  • не правильно, вообще не запускается даже ошибки нету
    • Автор:

      davin
    • 5 лет назад
    • 0
  • duplicate idintifier ошиька на 3ю строчку
  • Там вме правильно и работает,возможно вы невнимательно переписали текст
  • примерно так:n массив [50..100]int s:=0;for n:=50 to 100 doif (n mod 2=0) and (n mod 3)=0then s:=s+n;думаю мысль поняли )
    • Автор:

      carolyn
    • 5 лет назад
    • 0
  • var k,sum:integer;beginsum:=0;for k:=50 to 100 doif((k mod 2 = 0) and (k mod 3 =0)) then sum:=sum+k;writeln(sum);end.
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years