даны 2 стороны треугольника (а=4; с=3) и угол между ними (β=π/2). найти сторону (b), периметр(p), площадь(s), радиусы вписанной (r) и описанной (r) окружностей и оставшиеся углы (α, γ).
b = ((7 * 11 + 4) div 10) + 6 = (81 div 10) + 6 = 86a = (86 mod 10) + 3 = 6 + 3 = 9Задание 3:
ответ: 12
a = 15 - 6 * 2 = 33>15 ? нет => c = 15 - 3 = 12Задание 4:
ответ: 173
for k:=7 to 14 do s:=s+2*ks = 5 + 2*(7+8+9+10+11+12+13+14) = 173Задание 5А:НачалоВвод a, ba>b ?если да, то Вывод b*2если нет, то Вывод a*2КонецЗадание 5Б:var a, b: integer;begin readln(a,b); if a>b then writeln(b*2) else writeln(a*2);end.
ответ: 150
a = ((35 - 5) / 6) * (28 + ((35 - 5)/6) -3) = 5 * (25 + 5) = 150Задание 2:ответ: a=9, b=86
b = ((7 * 11 + 4) div 10) + 6 = (81 div 10) + 6 = 86a = (86 mod 10) + 3 = 6 + 3 = 9Задание 3:ответ: 12
a = 15 - 6 * 2 = 33>15 ? нет => c = 15 - 3 = 12Задание 4:ответ: 173
for k:=7 to 14 do s:=s+2*ks = 5 + 2*(7+8+9+10+11+12+13+14) = 173Задание 5А:НачалоВвод a, ba>b ?если да, то Вывод b*2если нет, то Вывод a*2КонецЗадание 5Б:var a, b: integer;begin readln(a,b); if a>b then writeln(b*2) else writeln(a*2);end.1)
var
a,i,count:integer;
begin
readln(a);
count:=0;
for i:=1 to a do
begin
readln(a);
if a mod 13 = 0 then
inc(count);
end;
writeln('Count: ',count);
end.
2)
var
a,i,max:integer;
begin
readln(a);
for i:=1 to a do
begin
repeat
readln(a);
if a>100 then
writeln('Error.Repeat');
until a<=100;
if i = 1 then
max:=a
else
if max < a then
max:=a;
end;
writeln('Max: ',max);
end.