Составить программу вычисления количества трехзначных чисел, которые при делении ** 5...

Question

Составить программу вычисления количества трехзначных чисел, которые при делении на 5 дают в остатке 2. (с помощью Pascal)

Answer 1

var

 i, c: Integer;

begin

 c := 0;

 for i := 100 to 999 do

   if i mod 5 = 2 then begin

     c := c + 1;

     Write (i, ', ');   // здесь выводятся эти числа, если это не нужно - удалите строку

   end;

 WriteLn;

 WriteLn ('Результат = ', c);

 ReadLn;

end.

Answer 2

Program n_1;

var i, n: integer;

begin

 n:=0;

 for i:=100 to 999 do if i mod 5 = 2 then n:=n+1;

 writeln(n);

end.

Comments

to 999 , 1000 уже четырехзначное

---

1000 все равно уже не попадает под критерий так что сбоя не вызовет