Задачи по Pascal

[Yulia13]

Здравствуйте.Помогите пожалуйста решить задачи,буду очень благодарна)))

1)в интервале [0,20] подсчитать количество четных чисел и чисел,которые делятся на 3.
2) Вычислить сумму чисел s=1/(p+2)+2/(p+2)+3/(p+2)+...+p/(p+2).
3) дан массив.найти количество элементов отличных от 0.
4) вывести таблицу значений функции y=sin(x) в интервале -1..1
5) найти среднее арифметическое 5 чисел,введенных с клавиатуры.решение оформить с помощью подпрограммы.
6)составить программу,которая для введенных чисел из диапазона 1..100 печатает грамматически верно фразу «Я прочитал k книг».
7)найти значение выражения z=/3x-4/, при -100<x<0 и значение z=x-sqr(x), при 0<x<=100
8)даны два действительных числа x и y, не равные друг другу.меньшее из этих чисел заменить удвоенным произведением.
9)найти разницу между наибольшим и наименьшим из 5 чисел,введенных с клавиатуры.
10)решить пример: q=b+a^3,где a и b генерируются случайным образом в диапазоне -100..10
11)найти сумму чисел кратных 5 из x,y,z
12)вычислить произведение чисел кратных 5 ряда от 1 до n.
13)вывести таблицу умножения на любое число, введенное с клавиатуры.
14)найти прощадь треугольника по формуле Герона.решение оформить в виде подпрограммы.
15)составить программу,которая для любого натурального числа 1-1000 печатает количество цифр в записи этого числа.
16)дан массив.найти сумму его положительных элементов.
17)в интервале [0,20] подсчитать количество четных чисел и чисел,которые делятся на 3.
18)решить пример: q=a^2+√b, где a и b вводятся с клавиатуры.

[Poma][a]

Попытки были?
А мысли?
Хоть что-нить..

[Yulia13]

извините,но я сама программирование не изучаю,это брату надо.а он не понимает))

[ZX Spectrum-128]

Не по теме:
Мысль одна - спихнуть эту гребанную сессию и быстрее:
А) на пляж
Б) утолить уже жажду пивасиком
В) прошвырнуться по посонам

По теме:
Почти все задачи - школьный курс информатики. Хоть 14-ную должны были решить?

Добавлено:
Прошу извинить. Брату - ремня. Пункт в заменить на "деффкам".

[Yulia13]

про сессию вы,хорошо сказали!
братишка у меня очень "умный"...
а про ремень возьму на заметку.

[ZX Spectrum-128]

Дайте брату задание - найти формулу Герона. И пусть без нее не возвращается.

[Poma][a]

извините,но я сама программирование не изучаю

Эм.. я бы понял (и поверил), если бы у Вас было 0 постов.. или они были не в "Паскале".. но сейчас как-то неправдоподобно вышло..

[Yulia13]

извините,но мне нет смысла что-то скрывать.а правила читать я умею.

[Poma][a]

ИМХО : смысл всё же есть.. Форумчане быстрее согласятся помочь девушке, которая расхлебывает грехи своего брата.. чем ..

[Yulia13]

ну да тут вы правы.