Задание

Задание 1

program Koordinat;

var

A, B,d, xa, xb, ya, yb:real;

begin

writeln('Задайте координаты точек A и B');

readln(xa);

readln(ya);

readln(xb);

readln(yb);

d:=sqrt(sqr(xb-xa)+sqr(yb-ya));

writeln(d)

end.

Задание 2

program Площадь;

var

a, b,c, p,S:real;

begin

writeln('Введите значения a, b,c');

readln(a);

readln(b);

readln(c);

p:=(a+b+c)/2;

S:=sqrt(p*(p-a)*(p-b)*(p-c));

writeln(S)

end.

Задание 3

program Площадь2;

var

AB, BC, AC, S,p, xa, xb, ya, yb, xc, yc:real;

begin

writeln('Задайте координаты точек A, B,C');

readln(xa);

readln(ya);

readln(xb);

readln(yb);

readln(xc);

readln(yc);

AB:=sqrt(sqr(xb-xa)+sqr(yb-ya));

AC:=sqrt(sqr(xc-xa)+sqr(yc-ya));

BC:=sqrt(sqr(xc-xb)+sqr(yc-yb));

p:=(AB+BC+AC)/2;

S:=sqrt(p*(p-AB)*(p-BC)*(p-AC));

writeln(S)

end.

Задание 4

program Число;

var

ab, a,b, c,d, e,ba:integer;

begin

writeln('Введите двузначное число');

readln(ab);

a:=ab div 10;

b:=ab mod 10;

c:=a+b;

d:=a*b;

e:=b*10+a;

writeln(c);

writeln(d);

writeln(e)

end.

Задание 5

program Часы;

var

k, h,m:real;

begin

writeln('Введите k');

readln(k);

h:=k/3600;

m:=(k-3600*int(h))/60;

writeln('It is ',int(h),' hours ',int(m),' minutes');

end.