Найти количество кратных 13 чисел от 1 до 1000

Question

Найти количество кратных 13 чисел от 1 до 1000

Comments

это паскаль

Answer 1

Var S, I: integer;
Begin
     FOR i := 0 to 1000 do
         if (i mod 13 = 0) then s := s + 1;
     writeln(s);
End.

Вот так)

Comments

не правильно