Ответ 4 отрезка
c 28 до 52
с 55 до 70
со 198 до 202
1000
Var a,b,c:integer;
result:double;
begin
read(a,b,c);
result:=(a+b-c)/(a-b);
writeln(result);
end.
Uses crt;
function f(a,b:real):real;
begin
f:=sqrt(a*a+b*b)
end;
var ab,ac,dc,bd,g,p:real;
begin
clrscr;
writeln('Введите длины строн');
write('ab=');readln(ab);
write('ac=');readln(ac);
write('dc=');readln(dc);
g:=f(ab,ac);
bd:=f(g,dc);
p:=ab+ac+dc+bd;
write('Периметр=',p:0:2);
readln
end.
Вот Вам на фотографии решение и таблица по которой можно легко перевести из 16 (8) ичной системы счисления без труда перевести в двоичную систему счисления и наоборот из двоичной в 16(8)-ичную перевести.
Ответ:
25А7_16=22647_8
509A_16=50232_8
Program gt;
var a:array[1..10,1..10]of integer;
n,k,p:integer;
begin
p:=0;
for n:=1 to 10 do
for k:=1 to 10 do
a[n,k]:=1;
for n:=1 to 4 do
for k:=1 to n+1 do
begin
A[n,k]:=A[n,k]-1;
A[k,n]:=A[k,n]-1;
end;
for n:=1 to 10 do
begin
for k:=1 to 10 do
begin
write(a[n,k]:3,' ');
if(a[n,k]=0)then p:=p+1;
end;
writeln;
end;
writeln(p);
<span>end.
ответ:8</span>