Переменные:
общий вид:
var <имя переменной> : <тип переменной>;
1. В имени переменной не может быть пробелов
2. Имя переменной не может начинаться с цифры
3. Нижнее подчеркивание разрешено
Константы:
общий вид:
const <имя константы> = <значение>;
Для константы действуют те же правила, что и на переменные.
Программа:
Общий вид:
<процедуры>
<функции>
<константы>
<переменные>
begin
<тело программы>
end.
Этот порядок нарушать нельзя, но некоторые моменты можно пропустить
Самое простое из того, что смог придумать. Перебираем числа до половины необходимого (больше нет смысла) (for i := 2 to number div 2 do) и ищем есть ли делители (number mod i = 0). Выводим сообщение.
var
number, i : integer;
begin
write('Число: ');
readln(number);
for i := 2 to number div 2 do
if number mod i = 0 then
begin
writeln('Число не является простым, оно делится, как минимум, на ', i);
Exit;
end;
writeln('Число является простым');
end.
Я сделала ввод массива с клавиатуры, но ты можешь сделать его рандомными числами
const N=5;
var A: array [1..N] of real;
i: integer;
begin
writeln('Введите массив');
for i:=1 to N do
readln(A[i]);
writeln('Положительные элементы:');
for i:=1 to N do
if A[i]>0 then
writeln('A[', i, ']=', A[i]);
end.
Условие Фано несложно. Оно гласит, что никакой код символа не может быть началом кода любого из остальных кодируемых символов.
Если А=0, то ни один иной символ не может начинаться с 0.
Если В=10, то ни один иной символ не может начинаться с 10.
Поскольку код 100 уже содержит в начале 10 - код буквы В, он не может быть кодом какой-то буквы, а будет декодирован, как ВА