• Составить программу вычисления количества трёхзначных чисел которые не кратны 5
    С ПОМОЩЬЮ WHILE

Ответы 9

  • Спасибо
  • Ты видел мой вопрос на втором акаунте про СОСТАВЬТЕ ПРОГРАММУ ВЫВОДА НА ЭКРАН ТАБЛИЦЫ УМНОЖЕНИЯ НА 6
  • Бл ребята училка говорит что inc мы не изучали нужно чтото другое
    • Автор:

      nylah
    • 5 лет назад
    • 0
  • Это проблема Вашей "училки". Но можете заменить Inc(n) на n:=n+1;
  • На самом деле учитель НЕ ИМЕЕТ ПРАВА искусственно ограничивать ответ ученика, если тот использует что-то, чего "еще не проходили". Возможно, ученик просто знает это не из уроков, а нашел самостоятельно или просто посоветовался.
  • Другое дело, если бы это было нечто, чего в школе вообще не изучают - тогда учитель в своем праве потребовать "школьное решение".
    • Автор:

      bearqrw3
    • 5 лет назад
    • 0
  • Например, в этой же версии Паскаля решение могло быть таким:begin Write(900-Range(100,999,5).Сount()) end.И это всё. Но в школе это не проходят.
  • var i,k:integer;begin;i:=100;while i<>1000 dobegin;if i mod 5<>0 then k:=k+1;inc(i);end;writeln(k);end.
  •    Заметим, что всего имеется 900 трехзначных чисел - от 100 до 999.   Если посчитать, сколько среди них чисел, кратных пяти, то вычтя его из 900, получим искомый ответ.   Первое число, кратное 5, это 100. А все остальные получаются путем последовательного прибавления числа 5.// PascalABC.Net 3.0, сборка 1064var  i,n:integer;begin  n:=0; i:=100;  while i<1000 do begin Inc(n); i:=i+5 end;  Writeln('Количество чисел равно ',900-n)end.Результат выполнения программы:Количество чисел равно 720
    • Автор:

      ashly
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

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

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

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