На паскаль
var i,j,k:longint;
begin
read(i);
if i < 10 then write('Число меньше 10. Поэтому оно не имеет двузначный делитель');
for j:=10 to 99 do
if i mod j=0 then inc(k);
if k=0 then write('Ваше число не имеет двузначный делитель') else write('Ваше число имеет ',k,' делителей');
end.
17 килобайт
1Кбайт = 1024 байт
//PascalABC.NET 3.1 сборка 1200
begin
var a := ArrRandom(100, -60, 140);
println(a);
println('Max = ' + a.Max);
println('Min = ' + a.Min);
end.
Подбираются имена, так чтобы имя было коротким но в тоже время четко определяло суть переменной и ее использование. Часто в реальных программах также используют разные префиксы и суффиксы.
Также не рекомендуется использовать русские буквы и транслит в названиях переменных.
Ответ:
215
Объяснение:
Видимо, неравенство в задаче выглядит так:
Переведем каждое из чисел 10-тичную систему счисления.
Получим диапазон для десятичных чисел , длину которого легко посчитать: 246 - 32 + 1 = 215