Практикум по программированию на языке Turbo Pascal. Часть 1. Портнягина В.В - 72 стр.

    3. Написать программу, которая определяет максимальное число из
введенной с клавиатуры последовательности положительных чисел (длина
последовательности неограниченна). Ниже представлен рекомендуемый вид
экрана во время работы программы (данные, введенные пользователем, выде-
лены полужирным шрифтом).
    Определение максимального числа последовательности положительных
чисел.
    Вводите после стрелки числа. Для завершения ввода введите ноль.
    – > 56
    – > 75
    – > 43
    –>0
    Максимальное число: 75
    Вариант 3
    1. Написать программу, которая вычисляет сумму первых n целых по-
ложительных чисел. Количество суммируемых чисел должно вводиться во
время работы программы. Ниже представлен рекомендуемый вид экрана во
время работы программы (данные, введенные пользователем, выделены по-
лужирным шрифтом).
    Вычисление суммы положительных чисел.
    Введите количество суммируемых чисел – > 20
    Сумма первых 20 положительных чисел равна 210
     2. В 1985 году урожай ячменя составлял 20 ц с га. В среднем каждые 2 го-
да за счет применения передовых агротехнических приемов урожай увеличива-
ется на 5%. Определить, через сколько лет урожайность достигнет 25 ц с га.
     3. Заданы две стороны треугольника A, B. Вводя по очереди еще по два
числа и интерпретируя их как длины сторон треугольника, напечатать те из
введенных сторон, которые при соответствующем сравнении могут образо-
вать треугольник, подобный первому (со сторонами A, B).
     Вариант 4
     1. Написать программу, которая выводит на экран таблицу умножения,
например на 7. Рекомендуемый вид экрана во время работы программы приве-
ден ниже. Данные, введенные пользователем, выделены полужирным шрифтом.
     Введите n – > 7
     Таблица умножения на n = 7
     7 х 2 = 14
     7 х 3 = 21
     7 х 4 = 28
     7 х 5 = 35
     7 х 6 = 42
     7 х 7 = 49
     7 х 8 = 56
     7 х 9 = 63
                                    72