1) Какое значение получится при вычислении следующего выражения, записанного на Паскале?
6 div 5 * 3 – 5 mod 2 + 17 div 3
2) Напиши на Паскале выражение для определения второй справа цифры в записи целого числа N (10 ≤ N ≤
99). Например: для числа N = 43 результатом будет цифра 4.
3) Запиши на Паскале формулу: 1
√ +3
+ (1 + )
2
.
4) Дан фрагмент программы на Паскале. Используя трассировочную таблицу, найди для данного фрагмента
программы. Чему будет равно значение переменной s.
a:=1; b:=1;
while (a+b) < 16 do
begin
a:=a+1; b:=b+2
end;
s:=a+b
5) Задано заполнение массива: for i:=1 to 5 do a[i]:=i*i.
Чему равно a[2]+a[5]?
6) Составь блок-схему и определи, что выведет программа после выполнения на Паскале:
program test;
var x, y: integer;
begin
x:=2; y:=10;
if x>0 then
if y<8 then
begin x:=x+2; y:=y-1 end
else
begin x:=x+3: y:=y*2 end
else
begin x:=1; y:=3 end;
writeln (‘ x= ‘ ,x, ‘ y= ‘, y);
end.
7) С блок-схемы или трассировочной таблицы определи значения переменных s и i после
выполнения фрагмента программы на Паскале:
s:=0; i:=-3;
while i < 2 do
begin if i < 0 then A:=i*i else A:=i;
s:=s+A; i:=i+1
end;

PascalABC.NET 3.4.2, сборка 1863 от 10.11.2018Внимание! Если программа не работает, обновите версию!

function Conv(s: string): string;

begin

 var d := s.ToCharArray;

 var (i, found) := (d.High, False);

 while i >= 1 do

   if d[i] > d[i - 1] then

   begin

     found := True;

     break

   end

   else i -= 1;

 if found then

 begin

   s := s[:i];

   var c := d[i - 1];

   d := d[i - 1:];

   d.Sort;

   var j := d.IndexOf(c) + 1;

   s += (d[j] + d?[:j] + d?[j + 1:]).JoinIntoString

 end

 else s := '-';

 Result := s

end;

begin

 var ms := Arr('1890', '83849', '126631', '146531', '32749972');

 foreach var s in ms do

   Conv(s).Println

end.

19088389413126615134632772499

Определяем мощность (количество символов) использующегося алфавита. 12 букв и 10 цифр составляют 22 символа. В 1 байте допустимо запоминать 256 комбинаций, поэтому "минимальное количество байтов" для кодирования символа равно 1. Номер из 6 символов займет 6 байт.

А для 32 номеров потребуется 32×6 = 192 байта.

Я встречал эту задачу в несколько ином виде: Каждый символ кодируется одинаковым и минимально возможным количеством не байтов, а бит. А номер кодируется минимально возможным количеством байт. Тогда получается 5 бит на символ (2⁴ < 22 < 2⁵), 6 символов требуют 5×6 = 30 бит = 30/8 ≈ 4 байта. А 32 номера занимают 32×4 = 128 байт.