запишем условие: I=14 Кб, i=1 байт
решение: выразим информационный объем в битах
I=14*1024*8=114688 бит
выразим вес одного символа в битах i=1*8=8 бит
найдем количество символов в тексте I=K*i, K=I/i=114688/8=14336
это и есть ответ
//Pascal ABC.NET v3.1 сборка 1219
Const
n=15;
Var
ar:array[1..n] of integer;
pro,i,k:uint64;
begin
randomize;
pro:=1;
writeln('First array:');
for i:=1 to n do
begin
ar[i]:=random(22,23); //Серьёно?
write(ar[i]:4);
pro:=pro*ar[i];
end;
writeln;
writeln('Pro=',pro);
write('Enter value:');
readln(k);
writeln('Final array:');
for i:=1 to n do
begin
ar[i]:=ar[i]+k;
write(ar[i]:6);
end;
end.
Пример работы программы:
First array:
23 23 22 22 22 22 23 23 23 22 23 22 22 23 23
Pro=10868183115618730368
Enter value:3
Final array:
26 26 25 25 25 25 26 26 26 25 26 25 25 26 26
1. Каждый солдат не мечтает стать генералом.
2. Некоторые из солдат мечтают стать генералами.
3. Некоторые из солдат не мечтают стать генералами.
X:=random(11);
<span>x:=random(13);
</span><span>x:=-10 + random(26);
</span>x:= 10 + <span>random(6);
</span>Целые случайные числа из промежутка [0; n] генерирует функция random(n +1).
Целые случайные числа из промежутка [a; b] вычисляются с помощью выражения x:= a + random(b - a + 1);