• Найти сумму всех двузначных чисел, кратных 5. Условный
    оператор не использовать

Ответы 2

  • var i: integer; s:real;begin s := 0; for i := (10 div 5) to (95 div 5) do s := s + 5 * i; writeln(s); {формула арифметической прогрессии} s := (95 - 5) / 5 * (10 + 95) / 2; writeln(s);end.
    • Автор:

      daffy
    • 6 лет назад
    • 0
  • Воспользуемся признаками делимости.Признак делимости на 5 гласит, что число делится на 5, если его последняя цифра 5 либо 0. Если мы не можем использовать условные операторы, то можем перечислить эти двузначные числа:vara : integer;begina := 10+15+20+25+30+35+40+45+50+55+60+65+70+75+80+85+90+95;writeln(a);end.либо можем красиво оформить в циклеvara,i: integer;begina := 0;i := 0;while i <> 100 dobegina := a + i;i := i + 5;end;writeln(a-5);end.
  • Добавить свой ответ

Войти через Google

или

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

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

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