М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Лена200115
Лена200115
10.01.2020 19:51 •  Информатика

Begin var a: integer; begin then else ; end.

👇
Ответ:
Eгор43
Eгор43
10.01.2020
Begin 
var a: integer;
begin
if a mod 2 = 0 then writeIn('Высказывание верно');
else writeIn('Высказывание неверно');
end. 
4,6(60 оценок)
Открыть все ответы
Ответ:
gspd000
gspd000
10.01.2020
Попробуй Program PascalGuru; var s:string;    f,t:text;
function preobr(s:string):string;var i,j,p,n,sered:integer;    gl,zp,slovo:string;    m:array [1..80] of string;beginzp:='!?*,.'; gl:='аоуыэяеёюи';  p:=pos(' ',s); i:=0;        repeat        inc(i);        slovo:=copy(s,1,p-1);        m[i]:=slovo;        delete(s,1,p);        p:=pos(' ',s);        until p=0;        n:=i+1;        m[n]:=s;    for i:=1 to n do     begin    s:=m[i];       if pos(s[length(s)],zp)<>0 then p:=length(s)-1 else p:=length(s);     sered:=(p div 2)+1;    if (not odd(p)) or (p<3) then continue;     if pos(s[1],gl)=0       then continue;     if pos(s[sered],gl)=0   then continue;     if pos(s[p],gl)=0       then continue;      s[1]:=UpCase(s[1]);    s[sered]:=UpCase(s[sered]);    s[p]:=UpCase(s[p]);     m[i]:=s+'('+s[1]+','+s[sered]+','+s[p]+')';     end;         s:='';     for i:=1 to n do s:=s+m[i]+' '; preobr:=s;end;
 beginassign(f,'input.txt'); reset(f);assign(t,'output.txt'); rewrite(t); while not eof(f) do      begin      readln(f,s);      writeln(t, preobr(s) );      end;  writeln('Файл успешно записан...'); close(f);close(t);readln;end.
4,6(90 оценок)
Ответ:
rgn123
rgn123
10.01.2020

Для начала нужно отформатировать каждый заголовок, который Вы хотите, чтобы был в Оглавлении, с автостилей. Для этого заходим на вкладку "главная", далее панель "стили", выделяем нужный заголовок и нажимаем "Заголовок 1", так делает с каждым заголовком по всему тексту. Если вам нужен подпункт в оглавлении, то тогда выделяем его и там же в панели "стили" выбираем "Заголовок 2". Аналогично можно сделать ещё подпункты, выбрав "Заголовок 3".

Когда Вы сделаете так со всеми заголовками, дальше можно создавать оглавление. Устанавливаем курсор, где хотим, чтобы было оглавление. Если для оглавления вам нужная отдельная страница, то вставляем разрыв до и после оглавления (Ctrl+Enter). После этого переходим во вкладку "ссылки", дальше слева в группе "оглавление" выбираем "Автособираемое оглавление 1". После этого будет создано оглавление на основе ваших выделенных заголовков. Каждый из заголовков будет снабжён отбивкой из точек, после них будет стоять номер страницы (если он есть), на которой этот заголовок находится.

Для того, чтобы менять шрифт и размер заголовков нужно в панели "стиль" выбрать наиболее подходящий Вам. В будущем можно будет обновлять оглавление. Для этого надо перейти на страницу с оглавлением, навести курсор и нажать "обновить таблицы", выбрать "обновить целиком".

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

4,7(59 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ