Program Primer;
Uses Crt;
var n:integer;
begin
write('Введите цело число: ');
readln( n);
if (n mod 2)=0 then writeln('Число чётное')
else writeln(' Число нечётное ');
readkey;
end.
1)Откроем вкладку Дизайн, в группе Темы раскроем список Цвета. Мы увидим готовый набор цветовых схем, любой из которых можно воспользоваться. Но наша задача задать свой цвет гиперссылке, поэтому выбираем в списке Создать новые цвета темы.
Откроется диалоговое окно Создание новых цветов темы. Нас интересуют две последние строки Гиперссылка и Просмотренная гиперссылка. По умолчанию для первой установлен синий цвет, а для второй — фиолетовый. Это значит, что в режиме просмотра презентации после перехода по гиперссылке цвет с синего поменяется на фиолетовый.
2)
— Как изменить гиперссылку?— Чтобы изменить гиперссылку, выделим объект, на который она установлена, откроем Вставка — Гиперссылка и изменим ее параметры.
Или другой Щелкнем правой кнопкой мыши по объекту с гиперссылкой и выберем Изменить гиперссылку.
3)
— Как удалить гиперссылку в презентации?— Чтобы удалить гиперссылку, выделим объект, на который она установлена, откроем Вставка — Гиперссылка — Удалить ссылку.
Или другой Щелкнем правой кнопкой мыши по объекту с гиперссылкой и выберем Удалить гиперссылку.
var
a: real;
begin
write('Введите число: '); readln(a);
if a>0 then writeln('Число больше 0!')
else begin
if a=0 then writeln('Число равно 0!');
if a<0 then writeln('Число меньше 0!');
end;
end.