Var K,n,i: integer;
begin
writeln('Введите число');
readln(K); n:=0;
for i:=1 to K do
if (i mod 2=1)and(K mod i =0) then n:=n+1;
writeln('Количество нечетных делителей числа равно ', n);
readln
end. Это?
Home
End
стерлки (вверх,вниз,право,лево)
Ctrl + стрелка вправо
Ctrl + стрелка влево
Page Up
Page Down
Ctrl + Page Down
Ctrl + Page Up
Ctrl + Home
Ctrl + End
Shift + F5
Shift + стрелка вправо/влево
1) cpp - программа на С++
2).cdr - <span>векторный файл
</span>3).swf - <span>flash-анимация
</span>4).html - <span>web-страница</span>
Управляющий объект: Человек
Объект управления 1: Кнопка
Объект управления 2: Часы
Цель управления: Вовремя дать звонок учащимся