Задать вопрос Регистрация
Помочь другим

  • Помогите записать задачу в Turbo Pascalе

    Начав тренировки, лыжник в первый день пробежал 10км. Каждый следующий день он увеличивал пробег на 10% от пробега предыдущего Определить:
    а) В какой день он пробежит больше 20км
    б) В какой день суммарный пробег за все дни превысит 100км

Ответы 1

  • program ncdkj;

    uses crt;

    var a,b,p,d,sd:integer;

    begin

    clrscr;

    a:=10;

    b:=10;

    d:=1;

    sd:=1;

    p:=10*0,1;

    repeat 

    a:=a+p;

    d:=d+1;

    until a>20;

    repeat 

    b:=b+p;

    sd:=sd+1;

    s:=s+b;

    until s>100;

    case sd mod 7 of

    0:writeln('сумма 100 км в 7');

    1:writeln('сумма 100 км в 1');

    2:writeln('сумма 100 км в 2'); И так до шести

    case d mod 7 of

    0:writeln('20 км в 7');

    1:writeln('20 км в 1');

    2:writeln('20 км в 2'); И так до шести

    readln;

    end.

    Надеюсь второе  правильно понял, вроде должно работать

     

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years