1) 30 букв плюс 10 цифр в сумме дают 40 символов. Значит, для их кодировки нам потребуются цифры от 0 до 39. Переведем 39 в двоичную систему счисления, чтобы посмотреть, сколько битов (разрядов) оно займет.
39(10)=100111(2) ⇒ требуется 6 битов.
2) В номере сертификата 5 символов, значит они займут 5*6=30 битов. По условию номер сертификата кодируется целым количеством байтов, а в байте 8 бит. Делим 30 на 8 и получаем 3.75. Округляем в большую сторону. Номер сертификата занимает 4 байта.
3) 80 номеров займут 4*80=320 байт. Ответ 2).
Ответ txt, просто переплавить местами переменные адресной строки
Var
x,y:real;
begin
x:=2.509;
y:=(exp(3*ln(abs(x-3)))-5*x)/(sqr(x+2)+exp(ln(x)/5))*exp(3*ln(x+sqr(x)));
Writeln(y)
end.
<em><u>Результат выполнения программы:</u></em>
-393.821568095705
program G1;
var
a:real;
begin
writeln('Сколько килограмм?');
readln(a);
a:=a*1000;
writeln('Это ',a,' грамм')
end.
<em>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
<u>№1</u>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
var kp:=a.Where(t->t>0).Count;
var kn:=a.Where(t->t<0).Count;
Writeln('Положительных ',kp,', отрицательных ',kn);
if kp>kn then Writeln('Положитьельныъ больше')
else
if kn>kp then Writeln('Отрицательных больше')
else Writeln('Положительных и отрицательных поровну')
end.
<u>№2</u>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
var (min,max):=(a.Min,a.Max);
Writeln('Минимум ',min,', максимум ',max);
if Abs(min)<Abs(max) then Writeln('Модуль минимума меньше')
else
if Abs(max)<Abs(min) then Writeln('Модуль максимума меньше')
else Writeln('Модули максимума и минимума равны')
end.