• Добро пожаловать на компьютерный форум Tehnari.ru. Здесь разбираемся с проблемами ПК и ноутбуков: Windows, драйверы, «железо», сборка и апгрейд, софт и безопасность. Форум работает много лет, сейчас он переехал на новый движок, но старые темы и аккаунты мы постарались сохранить максимально аккуратно.

    Форум не связан с магазинами и сервисами – мы ничего не продаём и не даём «рекламу под видом совета». Отвечают обычные участники и модераторы, которые следят за порядком и качеством подсказок.

    Если вы у нас впервые, загляните на страницу о форуме и правила – там коротко описано, как задать вопрос так, чтобы быстро получить ответ. Чтобы создавать темы и писать сообщения, сначала зарегистрируйтесь, а затем войдите под своим логином.

    Не знаете, с чего начать? Создайте тему с описанием проблемы – подскажем и при необходимости перенесём её в подходящий раздел.
    Задать вопрос Новые сообщения Как правильно спросить
    Если пришли по старой ссылке со старого Tehnari.ru – вы на нужном месте, просто продолжайте обсуждение.

Недавнее содержимое от Tosia

  1. T

    Тип множество

    Тип множество Вводится последовательность символов. Конец ввода F2. Определить количество предложений, в которых все слова начинаются только на гласную или только на согласную буквы. Признак конца слова пробел и знаки препинания в любом количестве. Конец предложения точка.(использовать при...
  2. T

    Нужна помощь в решении задачи

    -32000 до 32000
  3. T

    Нужна помощь в решении задачи

    Нужна помощь в решении задачи на интервале чисел для нечетных чисел найти среднее арифметические четных и нечетных цифр, для четных определить числа с максимальной цифрой в четном разряде(паскаль) Помогите плиз.
  4. T

    Помогите переделать задачу

    Помогите переделать задачу помогите переделать задачу паскаль из repeat unntil в while do program gg; uses crt; var ch:char; s:integer; begin repeat read(ch); if ch='c'then inc(s); until ch='.'; wriite(s); readkey; end.
  5. T

    Помогите переделать задачу

    Помогите переделать задачу вводятся 10 чисел. Найти сумму положительных чисел и минимальный среди отрицательных (через repeat until) program gg; uses crt; var i,j,k,min,sum:integer; begin clrskr; sum:=0; for i:=1 to 10 do begin read(k); if k>0 then sum:=sum+k else if k<min then min:=k; end...
Назад
Сверху