<em>// PascalABC.NET 3.3, сборка 1590 от 03.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-100,100); a.Println;
a.Transform(t->t<0?t*20:t); a.Println
end.
<u>Пример</u>
n= 13
-82 6 99 -23 71 -92 50 -70 -82 37 -10 -97 92
-1640 6 99 -460 71 -1840 50 -1400 -1640 37 -200 -1940 92
#include <iostream>
int count_dividers(int a) {
int res = 1;
for (int i = 2; i <= a; i++) {
if (a % i == 0) {
res++;
}
}
return res;
}
int main(void) {
int a, b;
std::cin >> a >> b;
for (int i = a; i <= b; i++) {
std::cout << count_dividers(i) << " ";
}
std::cout << std::endl;
return 0;
}
3 остальные не подхходят
решается подстановкой
1) 1000/1024=0,97 кб 1000 байт < 1 кб
2)220/1024=0,214 Кб 1/2 кб = 512 кб 220 < 1/2
3)1 мб = 1024 кб 1 < 1500
4)8192/8/1024 = 1 кб 1=1