• Найти количество делителей натурального числа. Сколько из них четных? Решить в Turbo Pascal, без массивов. Срочно, ПОЖАЛУЙСТА

Ответы 3

  • Не знаю правильно или нет. ☻
    • Автор:

      jean
    • 6 лет назад
    • 0
  • Спасибо большое ♥
  • var N,delit,count,ccount:integer; begin read(N); count:=0; ccount:=0; for delit:=1 to N do if N mod delit = 0 then begin count:=count+1; if (delit mod 2 = 0) then ccount:=ccount+1; end; writeln('Delit: ',count); writeln('Chetn Delit: ',ccount); end.
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years