Помогите решить задачки (на циклы):
1) Подсчитать k-- количество цифр неотрицательного целого числа n.

2) Найти d--старшую (левую) цифру неотрицательного целого числа n.

3) Определить, сколько раз (k) цифра 8 встречается среди первых пяти цифр дробной части положительного вещественного цичла x.

4) Получить целое число k добавлением слева цифры 6 к десятичной записи натурального числа n (например, k=6107 при n=107).

5) Логической переменной t присвоить значение true, если натуральное число k есть степень 10(1,10,100...), и значение false иначе.

по первой задаче можно так:

writeln('Vvedite chislo');
readln(n);
k:=length(inttostr(n));
writeln(k);

Артемий2, раздел то паскалевский, а стандартной функции inttostr там нету. Используй str(longint; Var string)). Хотя в справке дается пример аналога inttostr с использованием str.

я просто в uses добавил SysUtils. Но ты прав, я забыл про str()!

Артемий2 - не пойдет... Задачи на циклы, следовательно надо просто проходить по числу, и делить его на 10, пока оно не станет равным 0, одновременно с этим увеличивая счетчик цифр...

Диона, поправь название темы (), и пользуйся поиском... Практически все задачи решались...

Добавлено через 1 мин.
Кстати, StrUtils ты можешь добавить в Дельфи, раздел про Паскаль, повторяю...

Про циклы почему-то не обратил внимание, за это извиняюсь..

Поиском я пользовалась и три дня читала все задачи. Это во-первых. Во-вторых, задачи я написала сначала в другую тему, но туда почему-то никто не заглядывает, поэтому пришлось создать новую тему и что самое интересное, то сразу обратили внимание Создаётся впечатление, чтобы обратили на тебе внимание, нужно, точнее ПРИХОДИТЬСЯ, создавать новые темы!

Чувствуется на долго это ...

1)

var
  n: LongInt;
  k: Byte;

begin

  write('n = '); readln(n);

  k := 0;

  if n = 0 then k := 1 else
    while (n > 0) do begin
      inc(k);
      n := n div 10;
    end;

  writeln(k);

end.

2)

var
  n, temp: LongInt;
  left, k, t: Byte;

begin

  write('n = '); readln(n);

  k := 0;

  temp := n;

  while (temp > 0) do begin
    inc(k);
    temp := temp div 10;
  end;

  if k < 6 then writeln('No') else begin

    temp := n;

    t := k - 6;

    k := 0;

    while (k < t) do begin
      inc(k);
      temp := temp div 10;
    end;

    writeln(temp mod 10);

  end;
end.

3)

var
  n: Single;
  temp: LongInt;
  k, t: Byte;

begin

  write('n = '); readln(n);

  temp := Round(n - Frac(n));

  k := 0;

  while (temp > 0) do begin
    inc(k);
    temp := temp div 10;
  end;

  if k < 5 then writeln('No') else begin

    temp := Round(n - Frac(n));

    t := k - 5;

    for k := 1 to t do temp := temp div 10;

    k := 0;

    while (temp > 0) do begin

      if temp mod 10 = 8 then inc(k);

      temp := temp div 10;

    end;

    writeln(k);

  end;

end.

4)

var
  n, temp: LongInt;
  k: Byte;

begin

  write('n = '); readln(n);

  if n = 0 then n := 60 else begin

    temp := n;

    k := 0;

    while (temp > 0) do begin
      inc(k);
      temp := temp div 10;
    end;

    n := n + 6 * Round(Exp(k * ln(10)));

 end;

 writeln(n);

end.

var
  n, last: LongInt;
  t: Boolean;
  count1: Byte;

begin

  write('n = '); readln(n);

  count1 := 0;

  while (n > 0) and (count1 < 2) and (n mod 10 in [0, 1]) do begin

    last := n mod 10;

    if last = 1 then inc(count1);

    n := n div 10;
  end;

  t := (last - count1 = 0) and (n mod 10 in [0, 1]);

  writeln(t);

end.

может перемудрил местами, не проснулся еще ...

Диона, я прочел твой монолог, а теперь ты прочти вот это:

во-первых, если я дал время на то, чтобы ты соизволила поменять название темы - это не значит, что я ЗАБЫЛ об этом... Ты НЕ соизволила - согласно пункту 4 Правил Форума и Пункту 1 правил Раздела "Задачи" тема закрывается...

во-вторых: кто тебе вообще сказал, что твое сообщение в чужую тему кто-нибудь мог увидеть? Оно было удалено в течении нескольких минут, ибо не надо задавать свои вопросы (да еще и целую кучу) в чужой теме...

в-третьих, я тоже читал много текстов на китайском языке... Только вот не понял ничего, потому что просто ЧИТАЛ, а проще - СМОТРЕЛ на красивые иероглифы. А вот когда я начал УЧИТЬ язык (не китайский, немного другой), разбираться в грамматике, в синтаксисе, то почему-то получилось... Странно, правда?

Закрыто.