запишем условие: I=40Kб, строк=40, символы=64, N=256, страницы-?
решение: из формулы мощности алфавита найдем вес одного символа
N=2^i, 256=2^i, 2^8=2^i, i=8 бит
выразим информационный объем в битах
I=40Кб*1024*8=327680 бит
найдем из формулы информационного объема общее количество символов в тексте K=I/i=327680/8=40960
узнаем сколько страниц в реферате страницы=40960/40/64=16
это и есть ответ
{
правильная программа, кол-во элементов вводится с клавиатуры
}
Program Summa;
uses crt;
type a1= array of integer;
var a: a1;
m,s,n: integer;
procedure Input;
const p=1;
const q=20;
var i: integer;
begin
randomize;
begin
for i:=0 to n-1 do a[i]:=random(q-p+1)+p;
write('a[',i,']=');
readln(a[i]);
end;
end;
procedure Print;
var i: integer;
begin
write('Массив целых чисел А: ');
for i:=0 to n-1 do write(' ',a[i]);
writeln;
writeln;
end;
procedure Sum( m: integer);
var i: integer;
begin
s:=0;
for i:=0 to m-1 do s:=s+a[i];
end;
Begin
ClrScr;
write('введите кол-во элементов в массиве: ');
readln(n);
SetLength(a, n);
Input;
ClrScr;
Print;
write('Сколько элементов суммировать: ');
readln(m);
Sum(m);
writeln;
writeln('Сумма ',m,' элементов масссива равна: ', s);
Sum(n);
writeln;
writeln('Сумма всех ',n,' элементов массива равна: ', s);
Writeln ('Среднее арифмитическое всех элементов равно ', s/n);
Readkey;
end.
Напиши учит нарисуйиель.НАпиши ш нарисуй кол и напиши а.Напиши ком нарисй как кто нибуть пьёт и напиши тер.
Var a:integer;begin writeln('Введите число от 1 до 999: '); readln(a); if (a>999) or (a<0) or (a=0) then begin writeln('Неправильно введено число!'); end; writeln('Ваше число: ',a);end.
Program perimetr;
var a,c,p:real;
begin
a:=12.114;
c:=6.67;
p:=2*a+c;
writeln(p)
end.