1:
program prog;
var i,n,s,a:integer;
var chk:boolean;
begin
chk:=False;
s:=1;
write('Введите количество вводимых чисел: '); readln(n);
for i:=1 to n do
begin
write('Введите ', i, '-е число: '); readln(a);
if i mod 2 = 0 then
begin
s:=s*a;
chk:=True;
end;
end;
if chk = False then s:=0;
write('Произведение чётных членов введённой последовательности равно ', s);
end.
2:
program fib;
var
F1,F2,n,i :Integer;
begin
write('Введите количество чисел Фибоначчи: '); readln(n);
F1:=1;
F2:=1;
For i:=1 to n do
begin
if i>2 then
begin
F1:=F1+F2;
F2:=F1-F2;
end;
write(F1, ' ');
end;
end.
Виды шрифтов, отличающихся характером и графическим начертанием (формой и размером засечек, а также контрастностью):
Рубленные шрифты (Гротеск) – малоконтрастные шрифты, засечки отсутствуют. Символы таких шрифтов имеют одинаковую толщину, хорошо читаются как в мелком, так и в крупном размере. На сегодняшний день широко применяются в оформлении сайтов.
Медиевальные. Характеризуются умеренной контрастностью и наличием небольших засечек, которые изящно сопрягаются с главными штрихами. Символы и буквы в таких шрифтах имеют преимущественно наклонную ось и округлые объемы.
Брусковые шрифты. Обладают небольшой контрастностью, для них характерны длинные утолщенные засечки, которые имеют форму брусков. Начертания брусковых шрифтов отличаются плавными переходами от толстых штрихов к тонким линиям с небольшим закруглением. Они в свою очередь делятся на несколько отдельных типов: египетские, современные и старые шрифты.
Обыкновенные шрифты. Характеризуются ярко выраженной контрастностью и продолговатыми ровными засечками, которые перпендикулярно соединены с основными элементами.
Новые малоконтрастные шрифты. Эту группу отличают длинные скругленные засечки, которые плавно соединяются с основой символа. Применяются при работе с большими объемами текста, например в газетах и журналах.
