procedure vivod(n: integer);
begin
repeat
writeln(n mod 10);
n := n div 10;
until n = 0;
end;
// FreePascal
var
n, k, s: integer;
a: array of integer;
function IsPrime(n: integer): boolean;
var
i: integer;
begin
if n <= 1 then
Exit(False)
else
if n <= 3 then
Exit(True)
else
if (n mod 2 = 0) or (n mod 3 = 0) then
Exit(False);
i := 5;
while (i * i) <= n do
begin
if (n mod i = 0) or (n mod (i + 2) = 0) then
Exit(False);
i := i + 6;
end;
Exit(True);
end;
begin
s := 0;
write('n = ');
readln(n);
SetLength(a, n);
for k := 0 to (n - 1) do
begin
write('a[', k, '] = ');
readln(a[k]);
if IsPrime(k) then
s := s + a[k];
end;
writeln('Ответ: ', s);
end.
Срочно-срочно?
set /p a="Dir: "
copy %a%\*.txt C:\Reserv\
Ответ:
Введите доступную память в Гб - 6
Доступная память 6Гб = 6 * 1024 * 1024 * 1024 * 8 бит = 51539607552 бит
Вес одной страницы = 40*60*8 = 19200 бит
Страниц в памяти = 51539607552 div 19200 = 2684354 страниц
Высота стопки = 2684354 / 100 = 26843.54 см = 268.4354 м
Объяснение: