помогите с заданием

[Ronn]

Вычислить площадь, сторону и высоту правильного треугольника по заданной величине радиуса окружности, описанной около этого треугольника R = 5,125м. Написать универсальную подпрограмму, решающую данную задачу для произвольных значений параметра R.


Написать программу, которая во вводимой с клавиатуры последовательности, состоящей из 20 целых чисел, подсчитывает число элементов, модуль которых больше 1000.


Написать программу, которая по введенному с клавиатуры номеру года и номеру дня недели для 1-го января этого года, выводит на рабочий лист календарь на весь год. Месяца расположить поквартально.


Дана действительная квадратная матрица A порядка N. Поменять местами 3-ий и 4-ой сектора.


В выделенном фрагменте русскоязычного документа текстового процессора Word посчитать количество одинаковых слов.


В текстовом русскоязычном файле убрать все слова, начинающиеся на букву а и одновременно содержащие букву о.

[Oleg_Rus]

2/
for i:=1 to 20 do
read(a);
writeln;
for i:=1 to 20 do
if abs(a)>1000 then write(a,'_');

насчет остальных задач не знаю, надо посидеть и вспомнить, если что пиши в личку или на мыло Oleg_Rus.90@mail.ru

[flash1989]

Если что , обращайтесь
icq: 588002847
email: flash_1989@ukr.net

[Sheka]

Не вопрос, сделаю в лучшем виде! 255507394