. Определить количество натуральных двузначных чисел, меньших 50, которые не делятся на 11. в делфи

. Определить количество натуральных двузначных чисел, меньших 50, которые не делятся на 11. в делфи
Гость
Ответ(ы) на вопрос:
Гость
var   i, ans: byte;   begin   ans := 0;                           // Обнуляем ответ.   for i := 10 to 49 do          // Переменной i перебираем значения от 10 до 49, то есть все                                              натуральные двузначные числа, меньшие  50-ти     if i mod 11 <> 0 then   // Если текущее значение переменной не делится на 11, то…       inc(ans);                      // Увеличиваем ответ   writeln(ans);                   //Выводим окончательный ответ end.   
Не нашли ответ?
Ответить на вопрос
Похожие вопросы