Олимпиадные задачи по программированию. Ч. 3. Лучшие решения. Ускова О.Ф - 49 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

49
begin
While length(s)<5 do s:='#'+s;
end;
Procedure WriteToFile;
{запись в файл Output.txt и расчет выходных
данных}
var ttt,q,p:integer;
s1,s2:num5;
f:text;
begin
Assign(f,'output.txt');
Rewrite(f);
{расчет необходимого количества страниц}
p:=Trunc(3125/n+0.999999);
Writeln(f,p);
{расчет номера страницы, на которой находиться
слово a}
q:=To10(a) div n + 1;
Writeln(f,q);
{получение первого слова на странице, на
которой находиться
слово b}
ttt:=(To10(b) div n)*n;
s1:=To5(ttt);
{добавление в начало полученного слова нулевых
символов языка TURBU}
DoLen5(s1);
Writeln(f,s1);

Страницы