Var
a:array [1..100] of integer;
i:integer;
begin
randomize;
write('массив:');
writeln;
begin
for i:=1 to 100 do
a[i]:=random (40)-20;
end;
for i:=1 to 100 do
writeln(a[i]);
end.
1. Найдем мощность афавита 15+10 = 25, значит 25 символов (буквы + цифры) используется для автомобильного номера
2. Определим объем информации необходимый для одного символа: 25>2⁴ и 25 < 2⁵, берем с избытком 2⁵. Значит для кодирования 1 символа нужно 5 бит.
3. Но по условию каждый номер кодируется минимальным количеством байт. Следовательно на 1 символ придется выделить 1 байт или 8 бит.
4. На 1 номер приходится 7*1 байт, значит для 30 номеров нужно 30*7=210 Байт.
Ответ: 210 Байт.
Var a,b,c,p,S:real;
begin
writeln('Введите A: ');readln(a);
writeln('Введите B: ');readln(b);
writeln('Введите C: ');readln(c);
if (a+b>c) and (b+c>a) and (a+c>b) and (a>0) and (b>0) and (c>0) then
begin
p:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('S = ',s)
end
else
writeln('Стороны треугольникавведены неверно!');
end.
Program v;
var x, y: integer;
begin
readln(x);
readln(y);
if(x<y) then writeln(x);
else writeln(y);
end.
Сначала поменять букву н на букву д, затем букву о на букву е, дальше букву ч на букву н.