• На форум требуются модераторы в каждый подраздел раздела Форума об интернете и программировании:


    Возможно создание и другого подраздела специально по той теме или языку в котором вы разбираетесь.

    Требования:
    Адекватность
    Вежливость
    Желание наполнять раздел полезным контентом: модами, гайдами, статьями, новостями, читами (если есть)
    От нас возможно небольшое финансовое поощрение по итогам работы.
    Оплата за каждую интересную полезную созданную тему от 10 до 60 рублей.(В зависимости от полезности и уникальности)


    Писать мне в ЛС http://4cheat.ru/member.php?u=1

Вопрос Напишите программу в паскале

Статус
В этой теме нельзя размещать новые ответы.
Сообщения
62
Репутация
0
Спасибо
0
Напишите программу, которая в последовательности натуральных чисел определяет максимальное, оканчивающееся на 1. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 1
 
Сообщения
52
Репутация
0
Спасибо
0
Читаем количество чисел: read(n); Пока мы не нашли ни одного числа, претендующего на максимальное, зададим его равным 0 - так, чтобы любое подходящее число (натуральное > 0) оказалось больше него и могло считаться максимальным: max:=0; Дальше в цикле читаем сами числа и каждое из них проверяем: for i:=1 to n do begin read(q); ... {Здесь будем проверять} end; На месте многоточия тебе нужно проверить два условия: 1) (q > max) - очередное число q больше предыдущего И 2) (q mod 10 = 1) - число при делении на 10 дает остаток 1, то есть последняя цифра - единица. Если оба условия соблюдены - запоминаем наше число q как максимальное из встреченных на данный момент: max:=q; После этого цикла выводим число max.
 
Сообщения
67
Репутация
0
Спасибо
0
Ты на программера учишся? ..бросай ты это дело, раз нет желания учиться писать самому.
 
Статус
В этой теме нельзя размещать новые ответы.

Похожие темы

Сверху