В таком случае, я 1 и 2 стр сохраняю отдельным текстовым файлом, вырезая их из документа (где не ставлю нумерацию страниц), и распечатываю. А остальную часть нумерую, начиная с третьей. Как-то так, один из примитивных вариантов.
type
Data = record
Year: 1..2100;
Month: 1..12;
Day: 1..31;
end;
begin
writeln(sizeof(Data) * 8, ' бит'); {sizeof(Data) показывает размер типа Data в байтах
Var
s : String;
Begin
{Readln(s);}
s:='abcd sf dsf rfg test';
While Pos(' ',s)>0 do Delete(s,Pos(' ',s),1);
Writeln(s);
end.
ГистограммыГрафикиКруговые диаграммыЛинейчатые диаграммыДиаграммы с областямиТочечные диаграммыБиржевые диаграммыПоверхностные диаграммыКольцевые диаграммыПузырьковые диаграммыЛепестковые диаграммы