Процедура целочисленного деления двух целых чисел (входные параметры: a,b- числа;...

Question

Процедура целочисленного деления двух целых чисел (входные параметры: a,b- числа; выходной параметр- целое частное a/b).
Функция целочисленного деления двух целых чисел (выходные параметры: a,b- числа; возвращаемое значение - целое частное a/b). Написать программу в PascalABC.NET.

Answer 1

Процедура:
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.