program spos;
uses crt;
var
numb:array [1..100] of byte; // для последовательности чисел
i,f:integer; //счетчик и переменная в качестве флага
begin
randomize;
f:=0;
for i:=1 to 100 do numb[i]:=random(101);// задает последовательность
for i:=1 to 100 do
begin
write(',',numb[i]); // вывод на экран последовательность(можно удалить)
if (numb[i]=77)then f:=1; // в случае удачной проверки f:=1, в противном останется 0
end;
if f=0 then writeln('Yes') else writeln('No');
end.
program spos;
uses crt;
var
numb:array [1..100] of byte; // для последовательности чисел
i,f:integer; //счетчик и переменная в качестве флага
begin
randomize;
f:=0;
for i:=1 to 100 do begin
numb[i]:=random(101);// задает последовательность
write(' ',numb[i]);//вывод на экран, можно удалить
end;
writeln;
i:=0;
repeat
i:=i+1;
if (numb[i]=77)then f:=1; // в случае удачной проверки f:=1, в противном останется 0
until i<100;
if f=0 then writeln('Yes') else writeln('No');
end.
Для форматирования текста в таблице (как и за ее пределами) используется панель «Управление» или палитра «Символ». Кроме того, для форматирования самой таблицы служат два основных диалоговых окна: «Параметры таблицы» и «Параметры ячейки». Они позволяют изменять число строк и столбцов, внешний вид рамки вокруг таблицы и заливку, задавать интервалы до таблицы и после, изменять верхние и нижние колонтитулы и добавлять другие элементы форматирования.
Для форматирования структуры таблицы используются палитра «Таблица» и панель «Управление» или контекстные меню. Чтобы вызывать контекстное меню для работы с параметрами таблицы, выделите одну или несколько ячеек, затем нажмите правой кнопкой мыши (Windows) или нажмите, удерживая нажатой клавишу Control (Mac OS).