profile
Опубликовано 6 лет назад по предмету Информатика от Wellcome

Начав тренировку лыжник в 1 день пробежал 10 км. Каждый след. день он увеличивал длину пробега на 10% от пробега предыдущего дня. Определить: а)в какой день он пробежал больше 20 км. б) в какой день суммарный пробег за все дни превысит 100 км? Задача по информатике, надо составить программу в pascal abc. Помогите!

  1. Ответ
    Ответ дан Aillianna

    const

       s = 20;{поменять на 100 для второй задачи}

    var

       days: integer;

       distance, day_distance: real;

    begin

       days := 1;

       day_distance := 10;

       distance := day_distance;

       

       repeat

           day_distance := day_distance * 1.1;

           distance := distance + day_distance;

           days := days + 1;

       until distance >= s;

       writeln(days);

    end.

Самые новые вопросы