Поскольку повтор вопроса, будет повтор ответа)
program p1;
var
n,m,s:real;
i:integer;
a:array[1..7] of real;
begin
write('Write n: '); readln(n);
write('Write m: '); readln(m);
writeln('Enter the weight of things: ');
for i:=1 to 7 do
read(a[i]);
s:=0;
for i:=1 to 6 do
s:=s+a[i];
if s>20
then
begin
s:=(s-20)*n;
writeln('For luggage: ',s:0:2);
end
else
writeln('For luggage: ',s:0:2);
if a[7]>5
then
begin
a[7]:=(a[7]-5)*m;
writeln('For hand luggage: ',a[7]:0:2);
end
else
writeln('For hand luggage: ',a[7]:0:2);
readln
end.
C помощью чисел - числовой
с помощью того же алфавита, что и исходный текст - символьный
<u>PascalABC.NET 3.3.5, сборка 1648 от 31.03.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
ReadSeqInteger(ReadlnInteger).Where(t->t.IsEven).Max.Println
end.
<u>Пример</u>
6
20 31 -18 0 14 7
20
1) N = 2^i
256 = 2^i
i = 8 бит глубина кодирования одной буквы из 256-символьного алфавита
2) 30 * 70 * 5 = 10500 символов всего на 5 страницах текста
3) 10500 * 8 бит = 84000 бит нужно для кодирования всего текста
84000 / 8 = 10500 байт / 1024 = 10,25 Кбайт
Ответ: 10,25 Кбайт нужно для кодирования всего текста