Var a:array[1..11] of real;
t,i:integer;
begin
for i:=1 to 11 do
read(a[i]);
for i:=1 to 11 do
if a[i]>0 then begin t:=i; break; end;
if t<>0 then writeln(a[t])
else writeln('Not found');
<span>end.</span>
В C++ такая запись (b=2;) как раз и является операцией присваивания, но никак не может объявлять константу.
Что в паскале, что в C++ константа объявляется через const
Формула Шеннона о количестве информации в событии с вероятностью p
i=-log(p)/log(2)
Важно только количество целых чисел в диапазоне. Чем больше чисел в диапазоне, тем меньше вероятность выбора одного числа и тем больше информации в сообщении о выборе
a) 76-12+1 = 65
в) 133-100+1=34
с) 25-(-17)+1=43
д) 0-(-32)+1=33
е) 34-12+1=23
Соответственно, наименьшее количество информации будет в сообщении о выборе числа из последнего диапазона, от 12 до 34
<span>Для скачивания файлов с FTP-серверов, в принципе, достаточно браузера. При переходе по ссылке на FTP-сервер (или при указании адреса сервера в адресной строке браузера) на странице обозревателя появляется структура папок в виде ссылок. Чтобы зайти в папку, нужно щелкнуть по ссылке. При этом на странице появится содержимое этой папки, опять же в виде ссылок. Это могут быть ссылки на файлы или вложенные папки.</span>
<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
ReadSeqInteger(ReadInteger('n=')).Reverse.Println;
end.
<u>Пример</u>
n= 5
1 2 5 7 9
9 7 5 2 1
