Найти количество кратных 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.
Вот так)
Не нашли ответ?
Похожие вопросы