Регистрация
damila3434
08.10.2021 18:26
Информатика
Есть ответ 👍

Информатика, с объяснениями (желательно)

151
415
Посмотреть ответы 1

Ответы на вопрос:

Zvezdo4kaKatty
Zvezdo4kaKatty
4,8(47 оценок)
Program dividers; var     c,i,n : integer; begin       readln(n);       repeat           if ( (n mod i) = 0 )  and ( (i mod 2) < > 0) then c: =  c  +  1;           if   (  (n  /  i) mod 2) < > 0 then c: = c  +  1;           i: = i  +  1;       until i < (sqrt(n) + 1);       writeln(c); end.    

Популярно: Информатика