1000 Во втором разряде справа 2+1 дало в результате 0. Но 2+1=3 в десятичной системе, следовательно система счисления троичная.
2) Если в мешке только красные яблоки, то вероятность вытащить красное яблоко равна единице и сообщение о том, какого цвета вытащенное яблоко не содержит никакой новой информации т.е. количество информации 0 бит. А если там есть яблоки другого цвета. то информации для решения задачи недостаточно.
3) Диапазон А1:С4 содержит четыре строки (1-4) и три колонки (А-С). Итого 4х3=12 ячеек.
var x, F: real; begin write('Введите х: '); readln(x); if ( x > -2.4 ) AND ( x < 5.7 ) then F := sqr(x) else F := 4; writeln('F = ', F); end.
№2
var x, F: real; begin write('Введите х: '); readln(x); if ( x > 0.2 ) AND ( x < 0.9 ) then F := sin(x) else F := 1; writeln('F = ', F); end.
№3
var a,b,c: real; begin write('Введите а: '); readln(a); write('Введите b: '); readln(b); write('Введите c: '); readln(c); if ( a < b ) AND ( b < c ) then writeln('a < b < c') else if ( b > a ) AND ( a > c ) then writeln('b > a > c') else writeln('Неравенства не выполняются'); end.
var
a:array[1..20] of integer;
sum,mul,i:integer;
begin
randomize;
for i:=1 to 20 do
begin
a[i]:=random(100);
end;
sum:=0;
mul:=1;
for i:=1 to 20 do
begin
sum:=sum+a[1];
mul:=mul*a[1];
end;
writeln('Summa=',sum);
writeln('Multiply=',mul);
end.