См фото
========================
Процедура:
procedure dp(a,b: integer);
begin
writeln(a div b);
end;
функция:
function df(a,b: integer): integer;
begin
df:=a div b;
end;
программа с процедурой:
Program n1;
var x,y: integer;
procedure dp(a,b: integer);
begin
writeln(a div b);
end;
begin
readln(x,y);
dp(x,y);
end.
программа с функцией:
Program n1;
var x,y: integer;
function df(a,b: integer): integer;
begin
df:=a div b;
end;
begin
readln(x,y);
writeln(df(x,y));
end.
Нельзя более 5000 символов, поэтому просто дам ссылку http://school-25.ru/informatika/uch_8kl_sem/04.html
Последние две цифры должны быть 1 и 2 (1*7+2 - чтобы получить остаток 9) Значит запись семеричного числа начинается с цифры 3 (должны получить наименьшее возможное число) и дальше цифры по возрастанию:
3045612