var a:array [1..10] of integer;
s,i,c,b:integer;
Begin
read(c,b,n);
randomize;
for i := 1 to n do
a[i]:= random(b) -c+1;
for i:= 1 to n do
if i mod 2 = 0 then s:=s+1;
writeln(s);
End.
Воспользуемся формулой I = k * i, где I - информационный объем сообщения; k - количество символов в сообщении; i - информационный вес одного символа.
I = k * i
I = 100 * 6
I = 600 бит - объем
<em>Отсюда вытекает вопрос: откуда появилась 6?
</em>представим 64 формулой n=2 в степени i ( i - количество бит) <em>Т.к. нам необходимо найти i для нахождения объема текста, 64 = 2 в 6 степени. </em>
Program chisla;
var a:integer;
begin
Write('Введите четырехзначное число: ');
read(a);
if (a<=9999) and (a>=1000) then
begin
Writeln('Вторая цифра ',a div 100 mod 10);
end
else
Writeln('Это не четырехзначное число');
end.
Ответил в комментарий к ответу в прошлом вопросе
program p1;
var a, b, F: real;
begin
writeln('Введите A >> ');
readln(a);
writeln('Введите b >> ');
readln(b);
if (a>0) and (b>0.0) then
begin
F:=sqrt(a*b)/3*sqr(a+b);
writeln('F(a,b)='+F);
end
<span>else </span>
writeln('Ошибка. A<0 или B<0');
<span>end.
</span>
Табулирование функции-это вычисление значений функций при изменении аргумента от некоторого начального значения до некоторого конечного значения с определённым шагом.