В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
aiperiwa
aiperiwa
26.12.2021 00:24 •  Математика

Два бегуна тренируются в парке на круговой дорожке длиной 2 км. Первый спортсмен убежал на дистанцию, а через 5 минут из той же точки в том же направлении выбежал второй спортсмен при этом первый бегун еще не вернулся в стартовую точку. через 20 минут второй бегун в первый раз догнал первого. А еще через 40 минут после этого он догнал его во второй раз. Найдите скорость второго бегуна

Показать ответ
Ответ:
ozzibros
ozzibros
11.04.2023 04:34
Program NumberToStrnig;

function NumToStr(InN: LongInt): String;
{ Константы для формирования числительных }
const
arr100 : array[0..9] of String = ('','сто ','двести ','триста ','четыреста ','пятьсот ',
'шестьсот ','семьсот ','восемьсот ','девятьсот ');
arr011 : array[0..10] of String = ('','десять ','одиннадцать ','двенадцать ','тринадцать ',
'четырнадцать ','пятнадцать ','шестнадцать ','семнадцать ',
'восемнадцать ','девятнадцать ');
arr010 : array[0..9] of String = ('','десять ','двадцать ','тридцать ','сорок ','пятьдесят ',
'шестьдесят ','семьдесят ','восемьдесят ','девяносто ');
arr001 : array[0..9] of String = ('','','','три ','четыре ','пять ','шесть ','семь ','восемь ','девять ');
arr000 : array[1..2,0..2] of String = (('','один ','два '),
('','одна ','две ')); { массив единиц, зависящих о рода }
arrName : array[0..3] of String = ('тысяч','миллион','миллиард');

var
sN, sSign, Triad, tmpS, Result : String;
TriadCount, i, j, Err, idx : Integer;
N, N10, N01, nGender : Integer;
begin
Str(Abs(InN), sN); { преобразуем число в строку }

if InN < 0 then sSign := '(минус) ' else sSign := '';

TriadCount := (Length(sN)+2) div 3; { количество триад в числе }

sN := Copy('000', 1, TriadCount*3-Length(sN)) + sN; { дополним до полных триад }

Result := '';
{ обработка триад }
for i:=1 to TriadCount do begin
Triad := Copy(sN, 3*i-2, 3); { очередная триада }
Val (Triad[2], N10, Err); { десятки }
Val (Triad[3], N01, Err); { единицы }
for j:=1 to 3 do begin { сканируем цифры триады }
Val(Triad[j], N, Err); { очередная цифра триады }
case j of
1: Result := Result + arr100[N]; { формируем сотни }
2: if N10 = 1 then
Result := Result + arr011[N01 + 1] { 10..19 }
else
Result := Result + arr010[N]; { 20..90 }
3: if N10 <> 1 then begin
nGender := 1; { род мужской }
if i=TriadCount-1 then nGender := 2; { род женский }
if N > 2 then Result := Result + arr001[N]
else Result := Result + arr000[nGender, N];
end;
end;
end;

{ добавление названий триад }
if (N01 = 0) or (N01 > 4) or (N10 = 1) then idx := 3 else
if (N01 > 1) and (N01 < 5) then idx := 2 else idx := 1; { idx - для 1, 2 или 5}

Val(Triad, N, Err);
tmpS := arrName[TriadCount-1-i]; { название триады }
case TriadCount-i of
{ настроим окончания }
1 : if N <> 0 then begin
if idx = 3 then tmpS := tmpS + ' '
else if idx = 2 then tmpS := tmpS + 'и '
else tmpS := tmpS + 'а ';
end;
2..6 : if N <> 0 then begin
if idx = 3 then tmpS := tmpS + 'ов '
else if idx = 2 then tmpS := tmpS + 'а '
else tmpS := tmpS + ' ';
end;
else tmpS := '';
end;
Result := Result + tmpS;
end;
if Result = '' then Result := 'ноль';
NumToStr := sSign + Result;
end;

var
nS : LongInt;

begin
ReadLn(nS);
WriteLn(nS, ' - ', NumToStr(nS));
Readln;
end.

должно работать 
0,0(0 оценок)
Ответ:
Скажи2018
Скажи2018
06.06.2023 23:49
 Очень кондовое решение  
Пусть AB=a \\ &#10; BC=b \\ &#10; AC=c \\ &#10; c=30*sinB\\ &#10; a=30*sin(A+B) \\ &#10; b=30*sinA \\ &#10;
Последнее через теореме синусов  
Тогда , из условию следует что 
sinB+sin(A+B)+sinA = 6*sinB*sin(A+B)*sinA  
Это следствие из формулы S=pr\\ S=\frac{abc}{4R}     
Теперь , положим что \angle A= \angle B \\&#10;
Из выше описанной формулы следует что   A=B=2arctg( \sqrt{\frac{5-\sqrt{12}}{13}} )\\&#10;  
b=c=5\sqrt{24-6\sqrt{3}} \\&#10; a=10\sqrt{5+2\sqrt{3}}      
Впишем наш контр пример , в координатную систему OXY    
A(0;0) \\&#10; B(10\sqrt{5+2\sqrt{3}};0)   
Тогда центры меньших треугольников будут равны 
O_{A} \ (r \sqrt{5+\sqrt{12}} ; r) \\ &#10; O _{B} \ ((\sqr{5+\sqrt{12 })*(10-r) ; r) &#10;
 O_{N} \ (5 \sqrt{5+\sqrt{12}} ; y) \\ &#10; O_{C} \ (5\sqrt{5+\sqrt{12}} ; y+2r) &#10; 
 Найдем координату y   
 Его можно найти   
 Из уравнения 
 (x-r\sqrt{5+\sqrt{12}}) ^ 2 + (y-r)^2=4r^2 \\ &#10; ( (x - \sqrt{5+\sqrt{12}})*(10-r))^2+(y-r)^2=4r^2           
 Найдя его , затем учитывая что 
 d( O_{A}O_{N}) = 4r^2         
 Найдем что r=3                                       
 Но задача , видимо решается через так  называемую                       ГОМОТЕТИЮ  
0,0(0 оценок)
Популярные вопросы: Математика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота