Сделайте программу на языке паскаль

Сделайте программку на языке паскаль

Задать свой вопрос
1 ответ

Program n_1;

var x, y: double; d:integer;

begin

   d:=0;

   read(x, y);

   while (xlt;y) do begin

       x:=x*1.1;

       d:=d+1;

   end;

   writeln(d);

end.


, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт