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

    Таблица квадратов
    Число Квадрат
      1     1
      2     4
      3     9
      4     16
      5     25
      6     36
      7     49
      8     64
      9     81
      10    1 000
     2. В классе N учеников. Определить средний рост учеников класса, вво-
дя в ЭВМ по очереди рост каждого ученика.
    3. Написать программу, которая «задумывает» число в диапазоне от
1 до 10 и предлагает пользователю угадать число за 5 попыток. Ниже
представлен рекомендуемый вид экрана во время работы программы (данные,
введенные пользователем, выделены полужирным шрифтом).
    Игра «Угадай число».
    Компьютер «задумал» число от 1 до 10.
    Угадайте его за 5 попыток.
    Введите число и нажмите < Enter >
    – > 5 Нет.
    – > 3.
    Вы угадали! Поздравляю!
     Вариант 2
     1. Написать программу, которая выводит таблицу квадратов первых пя-
ти целых положительных нечетных чисел. Ниже представлен рекомендуемый
вид экрана во время работы программы.
     Таблица квадратов нечетных чисел
     Число Квадрат
        1     1
        3     9
        5     25
        7     49
        9     81
    2. Определить суммарный объем в литрах 12 вложенных друг в друга
шаров со стенками толщиной 5 мм. Внутренний диаметр внутреннего шара
равен 10 см. Считать, что шары вкладываются друг в друга без зазоров.
     Указания к решению задачи 2
     Необходимо в цикле по номеру шара вычислять объем каждого шара
(V = (4/3)πR3) и прибавлять его к суммарному объему. Диаметр каждого следую-
щего вложенного шара отличается от диаметра вложенного в него шара на 10 мм.
                                       71