Для начала переведем число из десятичной системы в двоичную
317=100111101
Проверяем:
1+0+4+8+16+32+0+0+256=317.
Все сходится.
Значит, в двоичной системе этого числа 6 единиц.
var a:array [1..20] of integer;
i,k:integer;
BEGIN
k:=301;
for i:=1 to 20 do begin
while (k mod 17<>0) and (k mod 13<>0) do
k:=k+1;
a[i]:=k;
k:=k+1;
end;
for i:=1 to 20 do
write(a[i],' ');
end.
Для радиуса описанной окружности имеется соотношение
<em>// PascalABC.NET 3.2, сборка 1367 от 20.12.2016</em><em>// Внимание! Если программа не работает, обновите версию!</em>var
a,b,c,R,dA,dB,dC:real;
begin
Writeln('Введите углы A,B в градусах и радиус R');
Read(dA,dB,R);
dC:=180-dA-dB;
a:=2*R*sin(dA*Pi/180);
b:=2*R*sin(dB*Pi/180);
c:=2*R*sin(dC*Pi/180);
Writeln('Угол C: ',dC:0:2);
Writeln('a=',a:0:5);
Writeln('b=',b:0:5);
Writeln('c=',c:0:5)
end.
<u>Пример</u>Введите углы A,B в градусах и радиус R
30 70 50.0
Угол C: 80.00
a=50.00000
b=93.96926
c=98.48078
Спроси у учителя и всё будет понятно!