• Вопрос по информатике:

    1. С клавиатуры вводятся числа, "0" - конец ввода. Сколько положительных чисел ввели. 2. С клавиатуры вводятся двухзначные числа, до тех пор пока их сумма не превысит 200. Сколько ввели чисел кратных 9? Решить через паскаль

    • Автор:

      crespo
  • Что означает Inc?

    • Отвечал:

      humphreymoody
    • 0
    Увеличение на 1

    • Отвечал:

      declan336
    • 0

    Ответ:

    1)

    Begin

    Count:=0;

    repeat

    Read (ch);

    If ch> 0 then inc(count);

    Until ch<>0

    Write(count);

    End.

    2)

    Begin

    Sum:=0;

    Count:=0;

    repeat

    Read (ch);

    Sum:=sum+ch;

    If ch mod 9=0 then inc(count);

    Until sum<200

    Write(count);

    End.

    • Отвечал:

      ashantifrek
    • 0

    Ответов нет, но ты это испарвиш!

Еще 4 ненужных тебе вопроса, но это важно для поиска