ДАЮ 24 БАЛЛА, СРОЧНО Оформить в виде процедур следующие задачи: 1. swap(a, b) 2. НОД(х, у) 3. максимум из двух чисел 4. минимум из трёх чисел 5. возведение числа а в степень х 6. вычисление n! Организовать вызов этих процедур в...
ДАЮ 24 БАЛЛА, СРОЧНО
Оформить в виде процедур следующие задачи:
1. swap(a, b)
2. НОД(х, у)
3. максимум из двух чисел
4. минимум из трёх чисел
5. возведение числа а в степень х
6. вычисление n!
Организовать вызов этих процедур в основной программе для введённых значений.
Гость
Ответ(ы) на вопрос:
ГостьНу, в общем, лови решение.
{ FreePascal 2.6.4}
program test;
uses
crt;
var
a, b, c, d : integer;
f : longint;
procedure swap (var x : integer; var y : integer);
var z : integer;
begin
z := x;
x := y;
y := z;
end;
function nod (m, n : integer) : integer;
begin
while m<>n do begin
if m>n
then
m:=m-n
else
n:=n-m;
end;
nod := m;
end;
function max (a,b : integer) : integer;
begin
if a>b
then max := a
else max := b;
end;
function min (x, y, z : integer) : integer;
var m : integer;
begin
m := x;
if y