предположим, что в начальном тексте было Х страниц, тогда:
Х*32*64*2 - Байт = 4*Х Кбайт весил текст
4Х=2 Мбайт = 2048Кбайт(по условию)
Х=512 Страниц
Значит в отредактированном - 512-2 = 510 Страницы
510*32*64*2=2088960 Байт = 2040 Кбайт
Program dlksjijh;
var
A: array[1..40] of integer;
i: integer;
begin
randomize;
writeln('исходные данные:');
for i := 1 to 40 do
begin
A[i] := Random(21);
write(A[i], ' ');
end;
writeln;
writeln('преобрезованный массив:');
for i := 1 to 40 do
begin
if A[i] mod 2 = 0 then
A[i] := Round(A[i]/2)
else
A[i] := A[i] * 3;
write(A[i], ' ');
end;
end.
Имена математических операций - с прописной буквы, и, поскольку есть Random(), то самой первой строкой программы должна быть команда randomize, то есть активация генератора случайных чисел.
У меня работает.
Делим число на 2 и выписываем остатки
860 = 430·2 + 0
430 = 215·2 + 0
215 = 107·2 + 1
107 = 53·2 + 1
53 = 26·2 + 1
26 = 13·2 + 0
13 = 6·2 + 1
6 = 3·2 + 0
3 = 1·2 + <span>1
</span>
Program n1;
const n=10;
var a: array[1..n] of integer;
i,k,sum: integer;
begin
randomize;
sum:=0;
k:=0;
for i:=1 to n do
begin
a[i]:=random(21);
sum:=sum+a[i];
end;
for i:=1 to n do if a[i] > sum/n then k:=k+1;
writeln(k);
end.
<span> малоразмерная цифровая видео или фотокамера, способная в реальном времени фиксировать изображения, предназначенные для дальнейшей передачи по сети Интернет (в программах типа Skype, Instant Messenger или в любом другом видеоприложении).</span><span>Веб-камеры, доставляющие изображения через интернет, закачивают изображения на веб-сервер либо по запросу, либо непрерывно, либо через регулярные промежутки времени. Это достигается путём подключения камеры к компьютеру или благодаря возможностям самой камеры. Некоторые современные модели обладают аппаратным и программным обеспечением, которое позволяет камере самостоятельно работать в качестве веб-сервера, FTP-сервера, FTP-клиента и (или) отсылать изображения электронной почтой.</span>
