Question

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

Answer 1

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.

Answer 2

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.