Помогите пожалуйста Решить 2 задачки на языке Паскаль! 1) По данному числу N

Помогите пожалуйста Решить 2 задачки на языке Паскаль!

1)

По данному числу N распечатайте все целые ступени двойки, не превосходящие N, в порядке возрастания.

Операцией возведения в ступень пользоваться нельзя!

2)

В первый денек спортсмен пробежал x км, а потом он каждый денек увеличивал пробег на 10% от предыдущего значения. По данному числу y определите номер денька, на который пробег спортсмена составит не менее y км.

Программка получает на вход действительные числа x и y и обязана вывести одно естественное число.

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

1)

Program Pr1;
uses crt;
var n,i:integer;
x:real;
Begin
clrscr;
readln(n);
for i:=1 to n do if exp(i*ln(2))lt;n then writeln(i);
end.

 2)

Program Pr1;
uses crt;
var i,r,y:integer;
a,x:real;
begin
clrscr;
readln(x,y);
i:=1;
while xlt;=y do begin
x:=x+0.1*x;
i:=i+1;
end;
writeln(i);
end.

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


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

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

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

Войти на сайт