Даны три числа А, В, С. Найти наибольший общий делитель этих чисел. Определение наибольшего общего делителя двух чисел оформить в виде функции пользователя.

program nod; uses crt; var a,b,c,n: integer;

function nod(x,y:integer):integer;

begin

while x <> y do if x>y then x:=x-y else y:=y-x;

nod:=x; end; begin

writeln (' ввести числа a,b,c'); readln (a, b, c);

n:=nod(nod(a,b),c);

writeln ('NOD(a,b,c) = ',n); readln; end.

Даны координаты вершин некоторого пятиугольника. Разбив его на треугольники вычислить его площадь. Вычисление площади треугольника по формуле Герона оформить в виде процедуры пользователя.

PROGRAM ASC;

Var xa,ya,xb,yb,xc,yc,xd,yd,xe,ye,s1,s2,s3,pls:real;

procedure Plos (x1,y1,x2,y2,x3,y3:real; var s: real); var d1,d2,d3,p:real; begin

d1:= sqrt(sqr(x1-x2)+sqr(y1-y2)); d2:= sqrt(sqr(x2-x3)+sqr(y2-y3));

d3:= sqrt(sqr(x3-x1)+sqr(y3-y1)); p:= d1+d2+d3;

s:=sqrt(p*(p-d1)*(p-d2)*(p-d3)); end;

begin writeln ('введите к-ты точки А'); readln(xa,ya);

writeln ('введите к-ты точки B'); readln(xb,yb);

writeln ('введите к-ты точки C'); readln(xc,yc);

writeln ('введите к-ты точки D'); readln(xd,yd);

writeln ('введите к-ты точки E'); readln(xe,ye);

plos(xa,ya,xb,yb,xc,yc,s1); plos(xa,ya,xc,yc,xd,yd,s2);

plos(xa,ya,xd,yd,xe,ye,s3); pls:=s1+s2+s3;

writeln(площадь пятиугольника = ', pls); readln; end.

Даны две простые дроби числитель первой А, знаменатель В, числитель второй дроби С, знаменатель D. Найти их сумму, и если можно сократить полученный результат. Определение наибольшего общего делителя двух чисел оформить в виде функции пользователя.

program drob; uses crt; type zap=record

ch,zn:integer; end; var s,sum,x,y: zap; k:integer;

function nod(x,y:integer):integer;

begin while x <> y do if x>y then x:=x-y else y:=y-x; nod:= x; end; begin

writeln (' ввести числитель и знаменатель первой дроби'); readln (x.ch,x.zn);

writeln (' ввести числитель и знаменатель второй дроби '); readln (y.ch,y.zn);

s.ch:=x.ch*y.zn+y.ch*x.zn; s.zn:=x.zn*y.zn;

k:=nod(s.ch,s.zn); sum.ch:=s.ch div k; sum.zn:=s.zn div k;

writeln (x.ch, '/' , x.zn, ' + ',y.ch, '/' , y.zn,' = ',s.ch, '/' , s.zn,' = ', sum.ch, '/' , sum.zn); readln; end.

6. Дан натуральный отрезок чисел [A,B]. Найти те числа этого отрезка, которые при делении на данное число K, дают в остатке число 4. Проверку, равен ли остаток четырем при делении данного числа на K, сделать с помощью логической функции пользователя.

PROGRAM ost; Var i, k, a, b: integer; flag: boolean;

function ravn (n,k:integer ): boolean; begin

if (n mod k=4) then ravn:= true else ravn:=false; end; begin

writeln ('ввести концы отрезка'); readln(a,b); writeln ('ввести число K');

readln(k); for i:=a to b do begin if ravn(i,k) then writeln ('при деление на число ', k ,' остаток равен 4 у числа ', i);

end; readln; end.

7. Дан числовой неупорядоченный массив, содержащий не более n<=50 целых чисел. Составить новый массив, элементами которого являются суммы цифр каждого числа исходного массива.