Var n,i,k:Integer;
begin
write ('Введите натуральное число (n<=1000): ');
readln (n);
k:=0;
for i:=1 to n do
if n mod i = 0 then k:=k+1;
writeln('Количество делителей числа ',n,' равно: ',k)
end.
Да с: с: с: с: с: с: с: с: с: с:
Ответ: Программа делает деление первого на втрого и выводит его остаток
Пример:
<em /><em /><em>1 / 2 = 0 (остаток 1)
</em><em>10 / 5 = 2 (остаток 0)
</em><em>25 / 10 = 2 (остаток 5)</em>
<em>31 / 3 = 10 (остаток 1)</em>
<em>33 / 22 = 1 (остаток 11)</em>
Ответ:
1875 Кбайт
Объяснение:
Объем видеопамяти = 2*16*800*600 бит = 4*800*600 байт = 1875 Кбайт
В помещениях:Сталевар,кассир обменного пункта.На открытом воздухе:почтальон,егерь,полевод,чабан,крановщик,водитель.В кабинетах:бухгалтер,учитель,менеджер.В необычных условиях труда:спасатель,водолаз,шахтёр,космонавт,каскадёр.