e verbs in
lian restaurant. He couldn't
(3)
(work
iness, his own restaurant. At
Adam wasn't interested inTraveller
e verbs in
lian restaurant. He couldn't
(3)
(work
iness, his own restaurant. At
Adam wasn't interested inTraveller
e verbs in
lian restaurant. He couldn't
(3)
(work
iness, his own restaurant. At
Adam wasn't interested inTraveller
e verbs in
lian restaurant. He couldn't
(3)
(work
iness, his own restaurant. At
Adam wasn't interested inTraveller
e verbs in
lian restaurant. He couldn't
(3)
(work
iness, his own restaurant. At
Adam wasn't interested inTraveller
e verbs in
lian restaurant. He couldn't
(3)
(work
iness, his own restaurant. At
Adam wasn't interested inTraveller
e verbs in
lian restaurant. He couldn't
(3)
(work
iness, his own restaurant. At
Adam wasn't interested inTraveller
e verbs in
lian restaurant. He couldn't
(3)
(work
iness, his own restaurant. At
Adam wasn't interested inTraveller
e verbs in
lian restaurant. He couldn't
(3)
(work
iness, his own restaurant. At
Adam wasn't interested inTraveller
e verbs in
lian restaurant. He couldn't
(3)
(work
iness, his own restaurant. At
Adam wasn't interested inTraveller
e verbs in
lian restaurant. He couldn't
(3)
(work
iness, his own restaurant. At
Adam wasn't interested inTraveller
e verbs in
lian restaurant. He couldn't
(3)
(work
iness, his own restaurant. At
Adam wasn't interested in
{ Треугольник задан координатами вершин (x1;y1),(x2;y2),(x3;y3).
Найти площадь треугольника (используя формулу Герона) }
uses crt;
var x1,x2,x3,y1,y2,y3,a,b,c,s,p : real;
begin
clrscr;
write('x1=');readln(x1);
write('y1=');readln(y1);
write('x2=');readln(x2);
write('y2=');readln(y2);
write('x3=');readln(x3);
write('y3=');readln(y3);
a:=sqrt(sqr(x1-x2)+sqr(y1-y2));
b:=sqrt(sqr(x2-x3)+sqr(y2-y3));
c:=sqrt(sqr(x3-x1)+sqr(y1-y3));
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
write('s=',s);
readln;
end.
формула герона!
А так я думаю эти задачки очень даже не сложные, только формулы надо знать!! !
периметр- это сумма всех сторон
например
begin
writteln( 'введите 3 стороны' ) ;
readln(a,b,c);
writeln(' периметр = ',a+b+c);
readln;
end.
Вот и все!! !
Удачи!
ответ:1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
var
f: text;
i, k, max: integer;
s: string;
begin
assign(f, 'D:\24.txt');
reset(f);
readln(f, s);
max := 1;
k := 1; // кол-во подряд идущих
for i := 2 to length(s) do
begin
if s[i] <> s[i - 1] then
begin
inc(k);
if k > max then max := k;
end
else k := 1;
end;
write(max)
end.
Объяснение: