Первый вопрос - первое вложение. Второй - два остальных.
Алгоритм - это способ (программа) решения вычислительных и других задач, точно предписывающий, как и в какой последовательности получить результат, однозначно определяемый исходными данными. Алгоритм - одно из основных понятий математики и кибернетики. В вычислительной технике для описания алгоритма используют языки программирования.
Program Graduate;
var age: integer;
institute: string;
school: string;
begin
writeln('Введите возраст: ');
readln(age);
if age > 17 then
begin
writeln('Введите ваш университет: ');
readln(institute);
writeln('Хороший институт');
end
else
begin
writeln('Введите вашу школу: ');
readln(school);
writeln('Хорошая школа');
end;
end.
32=2^6 => Для русского языка 1 символ несет 6 бит инфы.
26=2^i => i = log 26 по основанию 2 = 4,7 бит => Для фр. языка 1 символ несет 4,7 бит инфы.
V информации = 10 * 6 бит = 60 бит (для русского языка)
V информации = 10 * 4,7 бит = 47 бит (для фр. языка)
Значит для русского языка сообщение из 10 знаков несет больше информации.
Const
n = 12;
Var
A:array[1..12] of integer;
i:integer;
Begin
Write('Исходный массив: ');
For i:= 1 to N do
Begin
A[i]:=random(31)-20;
Write(' ',A[i])
End;
WriteLn;
Write('Номера отрицательных элементов:');
For i:= 1 to N do
if A[i] < 0 then Write(' ',i)
End.