Хотя б одну из двух, БРАТЦЫ:)

ПАСКАЛЬ

1) Описать процедуру RingS(R1, R2) вещественного типа, находящую площадь кольца, заключенного между двумя окружностями с общим центром и радиусами R1 и R2 (R1 и R2 - вещественные, R1 > R2). С ее площади трех колец, для которых даны внешние и внутренние радиусы. Воспользоваться формулой площади круга радиуса R: S = pi*R^2. В качестве значения pi использовать 3.14.

2)л. Описать функцию Fact(N) вещественного типа, вычисляющую значение факториала N!=1*2*...*N* (N>0 — параметр целого типа). С этой функции найти факториалы пяти данных целых чисел.

Основные преимущества компьютерной технологии создания текстовых документов перед бумажной технологией:

1) Понятно написанный текст (есть не понятные почерки);

2) Высока скорость набора текста;

4) Возможность быстрой корректировка ошибок (в рукописном исправить сложнее);

5) Быстрая перестановка и перенесение теста в нужные места (сохранение выделенного фрагмента в буфер обмена);

6) Простое  форматирование текста (стиль и размеры текста) и абзацев в целом;

7) Просто насыщение текста картинками, таблицами, графиками и т.п.

8) Быстрый поиск ключевого слова по тексту;

9) Одновременная работа над одним текстом нескольких авторов;

10) Автоматическая проверка ошибок;

11) Простое и удобное рецензирование;

12) Быстрое размножение текста в любых объемах;

13) Защита авторских прав (от копирования, редактирования);

14) Доступ к тексту из любой точки мира;

15) Печать текста с наложением водяными знаками и применение различных подложек;

16) Представление текста в любых форматах (doc, pdf, jpeg и т.д);

17) Возможность шифрования текста для защиты от несанкционированного доступа;

18) Возможность применения по тексту гипер- и перекрестных ссылок;

19) Возможность установки цифровой подписи от автора текста;

20) Сохранение природных ресурсов (не нужно рубить леса для бумаги).

var
  timeInSec:integer; // время в секундах
  color, s, m, h:byte;
begin
  h := 4; //часы
  m := 5; //минуты
  s := 23; //секунды

  timeInSec := h * 3600 + m * 60 + s; //перевод времени в секунды
  color := (timeInSec div 10) mod 3; {целочисленно делим на 10, чтобы узнать сколько раз светофор изменил цвет}
  {потом находим остаток деления на 3(количество цветов), чтобы узнать какой сейчас   цвет}
  case color of //вывод ответа
    0: writeln('Горит зеленый свет'); //0 - это зеленый свет
    1: writeln('Горит желтый свет'); //1 - это желтый свет
    2: writeln('Горит красный свет'); //2 - это крсный свет
  end;
end.