Цель: закрепить знания по программированию на языке Паскаль (линейный алгоритм, разветвляющийся, цикличный алгоритм).
Составьте программу по образцу на Паскаль и запишите ее для вывода со своими переменными: a=810, g=16.
program lineiny;
Var x,y: integer;
Begin
x : = 432;
y:=21;
y : = x div 100+y;
x : = ( x mod 100 ) * 10;
x : = x + y;
writeln(x);
End.

Составьте программу на нахождение площади круга.
Составьте программу по образцу на Паскаль и запишите ее для s := 0,
цикл k от 3 до 8, s := k + 7, переменные: цел s, k, найти s.
program cikl;
Var s,k: integer;
Begin
s := 0;
for k := 3 to 8 do
s := k + 9;
writeln(s);
End.

Составьте программу на Паскаль на условие по принадлежности точки отрезку АВ.

Составьте программу на Паскаль case of по образцу на числа от 6 до 9:
program vetvlenija;
var NUM :integer;
begin
writeln('Введите число от 0 до 3:');
readln (NUM);
case NUM of
0:writeln ('Нуль');
1:writeln ('Один');
2:writeln ('Два');
3:writeln ('Три')
else writeln ('Такого нет');
end;
end.
Примечание: использование программы PascalABCNET для выполнения номеров разрешается.

6251413

Объяснение:

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

0: F(6) -> 6 (вызов произойдёт)

1: F(2) -> 2 (вызов не произойдёт)

1: F(5) -> 5 (вызов произойдёт)

2: F(1) -> 1 (вызов произойдёт)

2: F(4) -> 4 (вызов произойдёт)

3: F(1) -> 1 (вызов не произойдёт)

3: F(3) -> 3 (вызов не произойдёт)

1) 2 кб.
1 байт=8 бит
1 килобайт=1024 байта
8x1024=8192
16384:8192=2

3) 2^27 для перевода в байты умножаем на 2^(-3), затем на 2^10 в килобайты и на 2^10 в мегабайты, т.е. ответ 16Мбайт.

4) Надо посчитать количество символов в сообщении: 3 * 25 * 60 = 4500;
Сообщение занимает 1125 байт, посчитаем, сколько байт занимает каждый символ: 1125 / 4500 = 0.25;
Т.к. символ занимает 0.25 байт, одним байтом можно закодировать 4 символа. Байт состоит из 8 бит.
8 / 4 = 2 (количество битов чтобы закодировать каждый символ)
Двумя битами можно закодировать 4 символа, значит в алфавите может быть до четырех символов