Я думаю что г или а. Как-то так даальше смотри сама.
Var K,n,i: integer;
begin
writeln('Введите число');
readln(K); n:=0;
for i:=1 to K do
if (i mod 2=1)and(K mod i =0) then n:=n+1;
writeln('Количество нечетных делителей числа равно ', n);
readln
end. Это?
Program saidim;
uses crt;
var
m:integer;
begin
writeln('******************************');
writeln('** Переводилка возраста **');
writeln('******************************');
writeln();
writeln('Введите возраст в месяцах');
readln(m);
writeln('*** alphaues is thinking... ***');
writeln();
// writeln('Возраст равен ',m div 12,' лет ',m mod 12,' месяцев');
write('Возраст равен ',m div 12);
case ((m div 12) mod 10) of
1: write(' год ');
2,3,4: write(' годa ');
else write(' лет ');
end;
case (m mod 12) of
0: writeln(' ровно ');
1: writeln(m mod 12,' месяц ');
2,3,4: writeln(m mod 12,' месяцa ');
else writeln(m mod 12,' месяцев ');
end;
end.
Вывод на печать вещь довольно простая Ctrl+P и сразу идет отправка на печать на принтер по умолчанию
Но часто может выйти не то что хотелось бы, потому перед печатью надо настроить какой результат мы хотим видеть на листе. Самое обычное это отступы, альбомная или портретная, размер бумаги, двусторонняя печать или нет, сколько листов на листе
обычно у каждой программы из которой идет печать есть некоторые настройки перед печатью и еще отдельно есть свойства принтера. Если во всем этом покопаться то часто можно достигнуть желаемого результата
Если же речь идет о профессиональной подготовке к печати то используются программы типа Publisher, Аdobe Illustrator и тп