На поверхность гладкой тонкой непроводящей сферы радиусом R на внешней ее поверхности в верхней точке - id113733320210123 от mgolubev13 23.01.2021 01:51

Question

Другие предметы: На поверхность гладкой тонкой непроводящей сферы радиусом R на внешней ее поверхности в верхней точке помещена небольшая

mgolubev13 · Accepted Answer

Const
s = 2500; {пробег для обкатки}
n1 = 12;{число дней, потраченное первым подростком}

var
s0, s2: real;
n2: integer;

begin
s0 := 150;
n2 := 1;
s2 := s0;
while s2 < s do
begin
    s0 := s0 + 20; {ежедневный пробег}
    s2 := s2 + s0;
    n2 := n2 + 1
end;
if n2 > n1 then Writeln('2-й подросток завершил обкатку позже на ', n2 - n1, ' дн.')
else if n2 = n1 then Writeln('Оба подростка завершили обкатку одновременно')
else Writeln('2-й подросток завершил обкатку раньше на ', n1 - n2, ' дн.')
end.

Решение:
2-й подросток завершил обкатку раньше на 1 дн.

На поверхность гладкой тонкой непроводящей сферы радиусом R на внешней ее поверхности в верхней точке помещена небольшая

MOGZ ответил