Так как один байт=8 битам вот
840.000 бит:8=105.000 байтов
//Pascal ABC.NET 3.1 сборка 1256
Var
m,n,i,j:integer;
begin
readln(m,n);
for i:=m to n do
begin
write(i,':');
for j:=2 to i div 2 do
if i mod j=0 then write(j:4);
writeln;
end;
end.
Пример ввода:
12
16
Пример вывода:
12: 2 3 4 6
13:
14: 2 7
15: 3 5
16: 2 4 8
1.44 Гбайт= 1474.56 мбайт=1509949,4 Кбайт
370 Мбайт = 378880 Кбайт
190 Мбайт = 194560 Кбайт
1509949,4+970+378880+194560 = 2084359.4 Кбайт = 2035,5072 Мбайт = 1,9878 Гбайт
2 Гбайт > 1,9878 Гбайт
Ответ: Все файлы вместятся на флешку.
Const
n = 5;// количество элем массиваvar
a: array [1..n] of integer;
sum, i: integer;begin
for i := 1 to n do
readln(a[i]);
for i := 1 to n do
if a[i] = i then
sum := sum + a[i];
writeln(sum);
end.