Оформление текста в MS Word Как добавить специальные символы?
Что такое абзац для Word?
Какие параметры для абзаца могут форматироваться и как ?
Как изменить у абзаца размер отступа?
Как задать границы к абзацу?
Как получить информацию о параметрах формата абзаца?
Как разделить абзац на два? Соединить?
Как при вводе текста перейти на новую строку того же абзаца?
Как обрамить текст, абзац, используя команды меню?
Как сделать заливку текста или абзаца, используя панель инструментов?
Как сделать заливку текста или абзаца, используя команды меню?
Каким образом можно начать новую страницу, используя команду меню?
Каким образом можно начать новую страницу, используя клавиатуру?
Как задать рисунок для границы страницы?
Как можно вставить рисунок горизонтальной линии?

const alphabet="";
var FileName:string

procedure ReadFile(FileName:string);
var f:text;
s:string;
i,k:integer;
begin
    assign(f,FileName);
    reset(f);
    while not eof (f) do begin { пока не конец файла }
        readln (f, s);
        for i:= 1 to length(s) do begin
          k:=pos(s[i], alphabet);
            if k=1 then k=length(alphabet); {это приколы изза я}
            if k>1 then s[i]:=alphabet[k-1];
      end;
        writeln(s);
    end;
    close(f);
end;

Begin
    read(FileName);
    ReadFile;
    readln;
End.

№1

Program z1;

var N:integer;

Begin

write ('Введите число N: ');

readln(N);

if (N mod 2 = 0) and (N div 100 < 1) and (N > 9) then write('Данное число является четным двузначным') else if (N div 100 < 1) and (N > 9) then write ('Данное число не четное двузначное');

end.

№2

Program z2;

var a, b, c, k:integer;

Begin

k:=0;

writeln ('Введите числа a, b и c: ');

readln(a,b,c);

if a<0 then k:=k+1;

if b<0 then k:=k+1;

if c<0 then k:=k+1;

write('Количество отрицательных чисел: ',k)

end.