Question

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

Answer 1

var i,k:integer;
begin;
i:=100;
while i<>1000 do
begin;
if i mod 5<>0 then k:=k+1;
inc(i);
end;
writeln(k);
end.

Answer 2

Спасибо

Answer 3

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

Answer 4

   Заметим, что всего имеется 900 трехзначных чисел - от 100 до 999.
   Если посчитать, сколько среди них чисел, кратных пяти, то вычтя его из 900, получим искомый ответ.
   Первое число, кратное 5, это 100. А все остальные получаются путем последовательного прибавления числа 5.

// PascalABC.Net 3.0, сборка 1064
var
  i,n:integer;
begin
  n:=0; i:=100;
  while i<1000 do begin Inc(n); i:=i+5 end;
  Writeln('Количество чисел равно ',900-n)
end.

Результат выполнения программы:
Количество чисел равно 720

Answer 5

Бл ребята училка говорит что inc мы не изучали нужно чтото другое

Answer 6

Это проблема Вашей "училки". Но можете заменить Inc(n) на n:=n+1;

Answer 7

На самом деле учитель НЕ ИМЕЕТ ПРАВА искусственно ограничивать ответ ученика, если тот использует что-то, чего "еще не проходили". Возможно, ученик просто знает это не из уроков, а нашел самостоятельно или просто посоветовался.

Answer 8

Другое дело, если бы это было нечто, чего в школе вообще не изучают - тогда учитель в своем праве потребовать "школьное решение".

Answer 9

Например, в этой же версии Паскаля решение могло быть таким:
begin Write(900-Range(100,999,5).Сount()) end.
И это всё. Но в школе это не проходят.