1100............вот как то так
Пришел хороший мальчик.
Затихла бурная сирень.
Program n1;
var a: real;
begin
write('введите скорость в км/ч: ');
readln(a);
write('эта скорость в м/с: ',a*5/18);
end.
1)5 поскольку формула 2^n=i
n - степень
i - число ,в данном случае 32 .
Ну и подставляет и решаем
2) ну , опятьже по той же формуле получаем что 2 больше.
Var
a, b, c, summ, d, den:real;
beginwrite('Введите кол-во км начальные: ');readln(a);
write('Введите на сколько % увеличивается расстояние каждый день: ');readln(b);
write('Введите, до скольки КМ увеличивает расстояние в день лыжник: ');readln(c);
den:=0;
while a<c do begin d:=a/100*b; // узнаем, на сколько увеличивается растояние a:=a+d; den:=den+1; end; writeln(den);
<span>end.
Написал на Pascal. Вводить можно любые данные ( не только, которые вы дали)</span>