Задача для 8 класса

[Sofolky]

1. Дано натуральное число. Верно ли, что его первая цифра превышает M?
2. Дано натуральное число. Определить колличество четных цифр в нем.
3. Начав тренировки, лыжник в первый день пробижал 10 км. Каждый следующий день он увеличивал длину пробега на 10% от пробега предыдущего дня. Определить в какой день суммарны пробег завсе дни превысит 100 км.


Ребят, помогите, очень нужно! Пожалуйста,
Заранее спасибо)))

[Alex11223]

/del, ошибся

[Alex11223]

3.

  km:=10;
  kmday:=10;
  c:=1;
  while (km<100) do
     begin
        kmday:=kmday+kmday*0.1;
        km:=km+kmday;
        c:=c+1;
     end;

[Сtrl]

1.

while (num >= 10)
num := num div 10;
if (num > M)
writeln('Первая цифра числа num больше, чем ', M);

[BalashovM]

Задача №2

var n:integer; {само число}
     b:integer; {переменная разряда - единицы, десятки и т.д.}
     s:integer; {кол-во цифр, разрядов}
begin
b:=1;                  {первый разряд - единицы}
write('n=');           {вводим число}
readln(n);             {считываем его}
 repeat                {цикл...}
  s:=s+1;             {+1 один разряд}
  b:=b*10;           {следующий разряд}
 until n div b = 0;  {...до тех пор, пока не кончатся разряды}
write('s=',s);        {выводим кол-во цифр}
end.

Мой вариант задачи №1 (универсальный, подходит для любого числа)

var n:integer;                     {число, которое нужно сравнить}
     b:integer;                     {переменная разряда - единицы, десятки и т.д.}
     m:integer;                    {число для сравнения}
begin
b:=1;                               {первый разряд - единицы}
 repeat                 
  write('m=');                    {задаём число, с которым нужно сравнить число, вводимое нами} 
  readln(m);                      {считываем его}      
 until (m<9) and (m>0);      {следим, чтобы оно не превышало 9 и не было меньше 0}
write('m=',m);                   {отображаем его значение}
write('n=');                       {вводим своё число}
readln(n);                         {считываем его}
 repeat                             {цикл...}
  b:=b*10;                        {следующий разряд}
 until n div b < 10;              {...до последнего разряда (введя число 1000, выражение 1000 div b будет равняться: 1000,100,10,1}
n:=n div b;                        {записываем в переменную вместо числа его первую цифру}
if n>m then writeln('Yes') else writeln('No'); {в зависимости от результата сравнения выводим ответ}
end.

Вы, наверное, в 8-ом классе циклы ещё не проходите, так что можно и попроще...
Но ты спрашивай, если что непонятно.

[Alex11223]

P.S.S. Если мой ответ тебе помог, повысь мне репутацию, пожалуйста.

Он никак ее тебе ни повысит, ни понизит. Для этого 30 или 40 репутации надо иметь)

[Sofolky]

Спасибо всем огромное просто! Аааа Вы молодцы вобще) Я очень рад) Только, можно как то решить вторую без цикла? Ну впринципе если проблемно, то не надо)