• первый пловец проплыл 3 км В каждый следующий день он прибавляет по 500 м к предыдущему результату На какой день он будет проплывать >5 км помогите по турбо паскалю

Ответы 2

  • Привожу полные исходники программы, как бы ее сделал я: 

    Program plovec;Uses crt; 

    var m:integer;

    begin

    clrscr;

    m:= 6if 3+0,5 <= 5then

    writeln (m, 'den');else

    m:=0

    end. 

     
    • Автор:

      sophia
    • 6 лет назад
    • 0
  •  Var r,d:integer;

    begin

    r:=3000; d:=0;

    repeat

    begin

    r:=r+500;

     

    d:=d+1;

    end;

    until r<5000;

     writeln('На ',d,' день');

     end.

     

     

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

Еще вопросы

Войти через Google

или

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

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

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