Начав тренировки, спортсмен пробежал в первый день 10 км. в каждый последующий день он увеличивал пробег на 10 % от пробега предыдущего дня. всего спортсмен занимался 11 дней. вывести на экран пробег спортсмена за каждый день и суммарный пробег за 11 дней. мне нужна прога в паскале и алгоритм в словестно-формульном ! ! нужно 40

program runner;  

var  

n,sum: real;  

i: integer;  

begin  

    n: =10;  

    sum: =0;  

    i: =0;  

    for i: =1 to 11 do begin

        sum : = sum + n;

        writeln(n: 3: 8);

        n : = n * 1.1;  

    end;

    writeln(sum: 3: 2);  

end.

тело инструкции writeln можно заменить на обычный writeln(n) и writeln(sum) соответственно, но тогда будет вывод некрасивый

пояснение: n - количество километров, которые пробегает бегун в текущий день (с самого начала равны изначальным десяти); sum - сумма; i - итератор цикла, здесь просто чтоб было именно 11 итераций - по одной на день.

в каждой итерации мы прибавляем к сумме текущий "пробег" (на первой итерации пробег инициализирован как 10, так что никаких операций производить не надо), выводим пробег на экран, после чего умножаем его на 110%.

повторяем 11 раз.

выводим сумму на экран.

const

 n = 25;

 

var

 a: array[1..n] of integer;

 k0, k, i, s: integer;

 p: real;

 

begin

 s := 0;

 p := 1;

 k := 0;

 k0 := 0;

 for i := 1 to n do

 begin

   a[i] := -n div 2 + random(n);

   Write(a[i]:4);

   if a[i] = 0 then

     inc(k0);

   if a[i] > 0 then

     s := s + a[i];

   if a[i] < 0 then

   begin

     p := p * a[i];

     inc(k);

   end;

 end;

 WriteLn;

 Writeln('Сумма: ', s);

 Writeln('Количество 0: ', k0);

 if k <> 0 then

   Writeln('Произведение: ', p)

 else

   Writeln('Нет таких чисел. ')

end.

Объяснение:

66

Объяснение:

Всего между планетами есть 13 * 12 / 2 = 78 связей (мысленно разрежем каждую связь пополам, у каждой планеты будет по 12 половин, всего 13 * 12 половин. Значит, целых связей 13 * 12 / 2)

Если выстроить планеты "в цепочку" (1 связана с 2, 2 с 3, ..., 12 с 13), очевидно, связаться всё равно будет можно, при этом останется 12 связей.

Меньше связей оставить не получится: действительно, для того, чтобы связать 2 планеты, нужна одна связь, а чтобы подключить к ним каждую дополнительную планету, придется провести связь от новой планеты к какой-то из уже подключенных.

Можно нарушить не больше 78 - 12 = 66 связей.