1. Лицевой счет - 12 цифр (максимум 999 999 999 999)
2. Месяц - 8 символов в алфавите из 22 символов
3. Год - поле из двух цифр, максимальное значение 99
4. Показание счетчика - 10 цифр (максимум 9 999 999 999)
5. Оплачено - число с максимальным значением 1000
Итоговая длина строки составит 40+40+7+34+10=131 бит.
Поскольку в одном байте восемь бит, длина в байтах будет округленно равна 17.
Листва, ветки, крона, корни,ствол
Program enot;
Var a: array [1..2] of integer;
i:integer;
begin
for i:= 1 to 2 do
begin
a[i]:=random(3);
writeln(a[i]);
end;
<span>end.</span>
// PascalABC.NET 3.0, сборка 1088
var
n,i,max,min,s,t,k:integer;
begin
Write('Введите количество членов последовательности: ');
Read(n);
Writeln('Вводите числа через пробел');
max:=-32768; min:=32767; s:=0; k:=0;
for i:=1 to n do begin
Read(t);
if t<min then min:=t
else
if t>max then max:=t;
if t<0 then begin s:=s+t; Inc(k) end
end;
Writeln('Min=',min,', max=',max,', ср.арифм.=',s/k:0:5)
end.
<em><u>Тестовое решение:</u></em>
Введите количество членов последовательности: 7
Вводите числа через пробел
25 -6 39 -118 271 24 -15
Min=-118, max=271, ср.арифм.=-46.33333