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

Задание:

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

Решение:

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

Знаете другой ответ?

Отправить свой ответ