profile
Опубликовано 5 лет назад по предмету Информатика от RMD

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

  1. Ответ
    Ответ дан HRAshton
    Var S, I: integer;
    Begin
         FOR i := 0 to 1000 do
             if (i mod 13 = 0) then s := s + 1;
         writeln(s);
    End.

    Вот так)
    1. Ответ
      Ответ дан RMD
      не правильно
Самые новые вопросы