Var
n, count:integer;
begin
write('n = '); readln(n);
count := 0;
while n <> 0 do
begin
inc(count);
n := n div 10;
end;
writeln('Count = ', count);
end.
1. Раз мощность алфавита - 64 символа, значит на один символ приходится 6 бит. Так как 64 = 2⁶.
2. Переведем объём информации в биты и разделим на 6 бит и получим количество символов:
1.5*1024*8/6 = 2048
1) А.
Только это касательно Windows xp правуильно будет, в последуюших версиях-не так.
writeln(b); - вывод, затем новая строка
write(b); - просто вывод, реже используется =)
<span>Вот на Java, в паскаль лень переводить. Если все же нужно, то отпишите в скайп - vasilevich24.
public class zadanie4 {</span>
<span>public static void main(String[] args) {</span><span> .
int a[];</span><span><span>
a=</span>new int [150];</span><span>
System.out<span>.println(</span>"Исходный
массив:");</span><span>
for (int i=0;i<15;i++) {</span><span><span>
a[i]=(</span>int<span>) Math.floor(Math.random()*20)-10; </span></span><span><span> System.</span>out<span>.println(</span>"a["+i+"]="+a[i]);}</span><span>
for (int i=0;i<15;i++){</span><span>
if (a[i]>=-5 && a[i]<=5){</span><span> a[i]=a[i]+1;}}</span><span><span>
System.</span>out.println("Полученный массив:"); </span><span>
for (int i=0;i<15;i++) { </span><span><span> System.</span>out<span>.println(</span>"a["+i+"]="<span>+a[i]);}}} </span></span>