Вопрос №1 ?
Для вывода значения переменной используют функцию .

input ()

type ()

fd ()

print ()

Вопрос №2 ?

Сколько километров пройдет человек за 2 ч. 15 мин, если идти со скоростью 5,5 км / ч?

S = 12.375

S = 13.375

S = 12

S = 12.373

Вопрос №3 ?

Чему будет равняться результат выполнения данной программы?

a_max = 16 b_max = 34 S_max = 544

a_max = 24 b_max = 26 S_max = 624

a_max = 21 b_max = 29 S_max = 609

a_max = 25 b_max = 25 S_max = 625

Вопрос №4 ?

Чему будет равняться значения ширины и длины участка с наибольшей площадью?

a = 14 b = 72

a = 25 b = 50

a = 43 b = 14

a = 14 b = 72

Вопрос №5 ?

Команда у = int (x) .

превращает целые числа в дробные

превращает текстовую переменную х на дробную переменную у

отсутствует правильный ответ

превращает текстовую переменную х в целочисленную переменную у

Вопрос №6 ?

Команда у = float (x).

превращает текстовую переменную х на дробную переменную у

отсутствует правильный ответ

превращает текстовую переменную х в целочисленную переменную у

превращает целые числа в дробные

Пишем свой генератор случайных чисел, который будет инициализироваться ключом(числом). Например лин. конгруэнтный метод, с заданными параметрами.

Шифрование:

В цикле генерируешь числа с своего генератора и "складываешь" с открытым

текстом, например побайтово. Получается шифротекст.

Под "складываешь" я имел ввиду сложение по модулю(для побайтового шифрования, модуль будет 256)

Дешифрование

Опять берем наш генератор, с теми же параметрами как и при шифровании(если знаем ключ).

И вычитаем из шифротекста, побайтово числа, которые выдает наш генератор. На выходе получается дешифрованный текст

Объяснение:

program an;

var n:integer;

    s1,s2:string;

    i,j:integer;

begin

       s1[1]:='*';

       s2[1]:=' ';

       for j:=2 to n do

       begin

                if s1[j-1]='*' then

                s1[j]:=' '

                else

               s1[j]:='*';

                if s2[j-1]='*' then

                s2[j]:=' '

                else

               s2[j]:='*';

      end;

    j:=1;  

     for i:=1 to n do

    begin

             if j=1 then

             begin

             writeln(s1);

             j:=0;

            end

           else

           begin

                   j:=1;

                   writeln(s2);

           end

  end;

end.

Объяснение: